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PREFACE 



This publication is organized in three 
sections. Section 1 is an introduction 
describing the relationship between the 
compiler and the Operating System, and the 
overall organization of the compiler. Sec- 
tion 2 is a description of the compiler 
phases, including a general description of 
each logical phase followed by descriptions 
of each of the physical phases contained in 
the logical phase. Section 3 consists of 
flowcharts and routine directories. The 
flowcharts show the relationship between 
the routines of each phase, while the 
directories list the routines and their 
functions. 



The appendixes appearing at the end of 
the publication contain topics of special 
importance and reference material. 

The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 

Prerequisite to the use of this publica- 
tion are the following: 

IBM SYStem/360 : 

Principle s of Ope ra tion , Form A22-6821 
PL/I Reference Manual, Form C28-8201 

IBM System/360 Operating System : 



PL/ I(F) Programmers Guide, Form C 28 -6 59 4 



PL/ 1 ii^IlHiJ^He Specifications , Form 

C28-6571 



Although not prerequisite, the following 
publications are related to this manual and 
should be consulted. 

IB M S ystem/360 Qpgrating_SYSterr : 



Introdu ction to Control Program Logic , 

Form Y28-6605 

Sequential Access Methods^ Frcgram Logic 
Manual, Form Y28-660U 

Operator Is Guide, Form C28-6540 

Supervisor and Data Management Services, 
Form C28-6646 

Supervisor and Data Management Macrjo 

Instructions, Form C28-6 6U7 

System Programmers Guide, Form C28-6550 

Si2£^3e_E s t ima t e s , Form C28-6551 

System Generation, Form C28-655U 

PL/ I Subroutine Library, Prog ram Logic 

Manual, Form Y28-6801 
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and the extension of input/output facilities which include LOCATE mode 
I/O, mixed record formats, variable length records, positioning control 
in stream I/O, and data interchange facilities with OS COBOL data sets. 
Other changes provide additional compile-tlrae facilities, and improved 
object-time performance in certain areas of application. These and other 
changes are indicated by a vertical line to the left of the change) new 
or revised illustrations are denoted by the symbol • to the left of the 
caption. 



Specifications contained herein are subject to change from time to time. 
Any such change will be reported in subsequent revisions or Technical 
Newsletters. 



This publication was prepared for production using an IBM computer to 
update the text and to control the page and line format. Page 
impressions for photo-offset printing were obtained from an IBM 1«03 
Printer using a special print chain. 
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SECTION 1: INTRODUCTION 



PURPOSE OF THE COMPILER 



The Operating Systeiri/360 FL/I (F) Com- 
piler analyzes and processes source pro- 
grairs written in PL/I, and translates them 
into object programs in load module form 
suitable for input to the Linkage Editor. 
When errors are detected in the source 
program, appropriate diagnostic messages 
are produced. The compiler functions with- 
in Operating System/360 and may be used on 
machines where at least 45,056 (44K) bytes 
of core storage are available for the 
compilation (exclusive of storage require- 
ments for the Operating System) . 



THE COMPILER AND OPERATING SYSTEM/360 



The PL/I (F) Compiler is a processing 
program of Operating System/360. The com- 
piler consists of a number of phases under 
the supervision of compiler control rou- 
tines. The compiler communicates with the 
control program of the Operating System, 
for input/output and other services, 
through the control routines. 

A compilation is introduced as a job 
step under the control of the Operating 
System, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control Lan- 
guage, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A discus- 
sion of the introduction of a compilation 
as a job step, and of the available catal- 
oged procedures, is given in the publica- 
tion IBM System/360 Operating System, PL /I 

(F) Programm er's Gu ide, Form C28-6 59 4. 

The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUTl 
(required if the main storage is insuffi- 
cient to contain the program) and SYSUT3 
(required if the 48-character set or the 
compile-time processor is used) as work 
delta sets. The SYSPRINT data set is manda- 
tory. The SYSPUNCH and SYSLIN data sets 
are used, depending on the options speci- 
fied by the source programmer, to contain 
the output from the compiler. 

The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 



A compilation is initiated by loading 
the compiler control routines from, the link 
Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 

1. Act as the interface between the com- 
piler phase and the Operating System, 
controlling all input/output, storage 
allocation, program interruptions, 
storage dumping, etc. 

2. Supervise the loading of compiler 
phases in accordance with source pro- 
gram options and information obtained 
from the source program by the compil- 
er phases. 

3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to backing 
storage in order to accommodate large 
source programs, the conversion of 
symbolic references to absolute 
addresses, and the conversion from 
absolute addresses to symbolic ref- 
erences. 

4. Provide a number of routines to assist 
in compiler debugging. 

The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text) . 

To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 



The options are in 
compiler. Some of these 
be loaded that would 
loaded. When an option 
found, a request for th 
inserted into the status 
directory. Other opti 
of instructions to a pha 
loaded. These instructi 



structions to the 

require a phase to 

not otherwise be 

of this type is 

e phase required is 

byte in the phase 

ons are in the form 

se that is always 

ons are also placed 
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in coded form in the conirrunications region 
of the dictionary, generally in the Control 
Code word (see CCCODE in Appendix B) . 



COMPILER ORGANIZATION 



The PL/I (F) Compiler coinprises a number 
of logical phases, each of which consists 
of several physical phases. 

The compiler phases and their corres- 
ponding functions are indicated in Figure 
2, and the organization of the compiler is 
shown in Figure 3. 

Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control phase, which sel- 
ects from its load list the next phase to 
be executed. 



Communication between the phases 
implemented by the following: 



is 



The text string. The 
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The dictionary. The di 
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a symbolic name. Par 
dictionary block is used 
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when the source program 
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Appendix F) 
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to be compiled 
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ontains such 



information as the addresses of the 
heads of chains, the symbolic start of 
text, etc. The remainder of the dic- 
tionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler pro- 
per, the format of all dictionary 
entries will be found in Appendix C. 
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LOGICAL PHASES 



Translator Phase 



The logical phases of the compiler and 
their main functions are summarized in the 
following paragraphs. 



The Translator Phase converts the origi- 
nal PL/I syntactic forin to an internal 
syntactic form, referred to as "triples." 



Compile - time Processor Phase 



The Compile-time Processor Phase reads 
input text, executes any compile-time 
statements contained in it, and modifies 
text as directed, producing modified text 
for further compiler processing. 



Triples consist of the original source 
program operators and operands, but rearr- 
anged so that the operations specified in 
the source string may be carried out in 
their proper order. 



Aqgregates_ Phase 



Read-In Phase 



The Read-In Phase is responsible for 
source program syntax checking, and the 
removal, from the text string, of all 
superfluous characters, such as comments 
and non-significant blanks. 



The Aggregates Phase carr 
structure and array mapping, 
ments are aligned on the cor 
boundaries. When it is no 
carry out the m.apping at compi 
such as when the aggregates c 
lengths or array bounds which 
by expressions, object code is 
do it at object time. Th 
checks that items DEFINED on 
structures can be mapped consi 



ies out all 

so that ele- 

rect storage 
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Dictionary Phase 



The Dictionary Phase 
identifiers and attribute 
the source string, and 
symbolic references to di 
The dictionary entries 
consistent declared attri 
attributes specified in 
default of source progr 
Error messages are genera 
sistent attributes. 



removes all BCD 

declarations from 

replaces them by 

ctionary entries. 

contain all the 
butes, and all the 

the language in 
am specifications, 
ted for all incon- 



Pseudo-Code Phase 



The Pseudo-Code Phase converts the tri- 
ples to a form closely resembling machine 
instructions, in which registers are rep- 
resented symbolically, and storage loca- 
tions are represented by dictionary ref- 
erences with offsets. The final pseudo- 
code version of the text also contains a 
number of special pseudo-code items for the 
guidance of later phases. 



Pretranslator Phase 



The Pretranslator Phase processes those 
features of the language that are more 
easily processed in their original PL/I 
form, than when the original syntactic form 
has been lost in later phases. The Pre- 
translator carries out these modifications 
which include the rearranging of the order 
of certain I/O statements, the creation of 
temporary variables for procedure arguments 
which are expressions, the conversion of 
array and structure assignments to a series 
of 'DO' loops surrounding scalar assign- 
ments, and the removal of iSUB expressions. 



Storage Allocation _Phase 



The Storage Allocation Phase searches 
the dictionary for all entries requiring 
storage, and allocates offsets to each 
item, either within its AUTOMATIC block, or 
within the STATIC storage area. Code is 
compiled to set up dope vectors and 
pointers at object time, for allocations of 
controlled variables and temporaries, the 
storage for which must be obtained during 
the execution of the object program. Pro- 
logue code is generated for each block of 
the object program. 
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Register Allocation Phase 



The Register Allocation Phase allocates 
physical registers to the symbolic reg- 
isters which have been requested by earlier 
phases, and also ensures that all the 
storage location offsets allocated in pre- 
vious phases can be addressed by the inser- 
tion of additional instructions, where nec- 
essary. 



constant data required for block initiali- 
zation. ESD and RLD cards are produced to 
enable the object program to be edited by 
the Operating System/360 Linkage Editor. 
The Final Assembly Phase also produces a 
listing of the object code produced. 



Error Editor Phase 



F inal As sembly P has e 



The Final Assembly Phase completes the 
translation to machine code instructions, 
by calculating branch destination addresses 
inserted symbolically by earlier phases. 
Loader text is then produced for the 
machine instructions, constants, INITIAL 
values in STATIC storage, and all the 



The Error Editor Phase is entered at the 
end of every compilation. The dictionary 
is examined to determine whether there are 
any diagnostic messages to be printed out. 
If there are none, the compilation is 
terminated by the compiler control. If 
there are diagnostic messages to be printed 
out, the error dictionary entries are proc- 
essed and the messages are printed. The 
texts of all the diagnostic messages are 
held in modules XG through YY. 
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SECTION 2; COMPILER PH^,SEg 

I Note; For descriptions of terms and abbreviations used in the text during a compilation 
I which are mentioned in this section of the Program Logic Manual, refer to Appendix _D,_ 11 . 



'C0MPILER_C0NTR0L_AND_U8-CHAHACTER_SET 
PREPROCESSOR 



COMPILER CONTROL 

When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the Operating \System, the 
Compiler Control module lEMAA is loaded and 
entered. lEMAA is resident during the 
whole comipilation; it controls the follow- 
ing functions: 

Initialization 

Character translation 

Text and dictionary block control 

Scratch storage control 

Phase loading 

Diagnostic message control 

Input/output control 

Program check handling 

Job termination 

Initialization 



Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the compil- 
er, and provides the following functions: 

Opens SYSIN and SYSPRINT data sets 

Constructs a phase directory (for details 
refer to Appendix B) 

Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 

Scans option list 

I Obtains space for text blocks and dic- 
I tionary blocks. 

I Opens SYSUT3 and SYSPUNCH as necessary 

Prints a list of options used in current 
compilation 



Loads phase AN to handle a normal dic- 
I tionary, or phase AL if an extended 
I dictionary is requested. 

On return from module AB, the first compil- 
er phase is loaded and entered. 



Character Translation Tables 



The character translation tables (see 
Appendix D.l) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the com.piler from 
becoming character code dependent, and ena- 
ble the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation pro- 
per. 



Communications Region 



The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the comimuni- 
cations region during compile-time process- 
ing is described in Appendix J.) 



Text ,and_Dictionary Blo_ck_Cgntrgl 



Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
blocks are placed on an external file, 
SYSUTl. The block control routines contain 
the input/output control. 
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Scratch Storage Control 



Phase DirectorY 



Scratch storage of 4K bytes is guaran- 
teed to all phases. The control routines 
split the UK-block into discrete sections, 
and allocates them as required. The sec- 
tions are in multiples of 512 bytes. 



Storage Requirements 

The (F) compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/Output buffers 

Input/Output routines (QSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of miain 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 

Appendix E shows details of storage 
allocation. 
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tory, which 
the same space 
proper. ) 



the number of phases in the 
phase directory is split into 

first half is constructed 
itialization of the compiler; 

names of the phases in the 

kept in Phase AA. This list 
ass status indications (i.e., 

are wanted or not wanted) 
St half to the second half, 
the list to construct a new 

the second half. (The error 

have their own phase direc- 
is built in phase XB and uses 

in AA as the phase directory 



The phase directories are constructed by 
use of the ELDL macro and a build list. 
The format of the build list is fully 
described in the publication I,EM__SYStem/36 
Opera ting_S y stemt Control Program Services, 
Form C28-65U1. For details of the phase 
directory see Appendix B. 



Diagnostic Message Control 



Diagnostic message control routines 
cause diagnostic messages to be placed in a 
chain in the dictionary. 



1 nput/Output C ont rol 



The I/O control routines involved act as 
an interface between the compiler phases, 
and SYSIN, SYSPFINT, SYSLIN, and SYSPUNCH 
data sets. (See Figure U.) 



£^2£S2;_2heck_Handlin3 



The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 



Phase Loading 



Phase loading routines include phase 
marking (where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 



Job Termination 



The compiler completion code is picked 
up and control is returned to the calling 
program. 
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The compiler completion codes are as 12 Severe error messages issued; corn- 
follows; pilation may be completed but with 

errors, successful execution impro- 
Code Meaning bable. If a severe error occurs 

during compile-time processing, a 

No diagnostic messages issued; com- listing of the PL/I text on SYSUT3 

pilation completed with no errors will be printed if the SOURCE 

option is specified. The compila- 
4 Warning messages issued; program tion will be terminated. 

compiled 

8 Error messages issued; program com- 16 Terminal error messages issued; 
piled but with errors; execution compilation terminated abnormally 

may fail 
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r T T T T T T T 1 

j Data Set j SYSIN j SYSLIB I SYSLIN j SYSPRINT | SYSPUNCH j SYSUTl | SYSUT3 | 



Module 




AAi 




AB 


OPEN 1 


ACl 




AE^ 




AG 




BX 


READ 1 


CI 


READ i 


AS2 


READ 1 


FY 




UA 




UD 




UF 




XB 




AE 


CLOSE 1 


AK** 




AK5 





OPEN 



READ 



CLOSE 



WRITE 



OPEN 



CLOSE 



OPEN/WRITE 



WRITE 
WRITE 
WRITE 
WRITE 

WRITE 
WRITE 



CLOSE 



0PEN6 



OPEN 



WRITE 



CLOSE 



0PEN3 
OPEN 3 



READ/WRITE 



CLOSE 
CLOSE 



OPEN 
WRITE/READ 

CLOSE/OPEN 

WRITE/READ 
WRITE 



CLOSE 



X X J. X X X X 

^AA, AC, and AE are modules of the control phase, and contain actual I/O routines which 
interface with the 0/S access methods (BSAM,QSAM). I/O activity shown for other 
modules indicates that these modules are utilizing the I/O routines. 

2AS may read from included data sets in addition to those shown in the table. 

^If the SIZE option results in IK text and dictionary blocks, SYSUTl is opened by 
Module AB. In the case of other SIZE options, SYSUTl is opened by Module AA when the 
available main storage is full. The timing depends on the size of program to be 
compiled. 

'*AK closes only the spill file SYSUTl when the batch option is used and a further 
source program is to be compiled. 

^AK closes all other files upon termination of a single or batch compiler run. 

^SYSPUNCH is opened if MACDCK option specified. 

L 

•Figure 4. Input/Output Usage Table 



COMPILER CONTROL MODULES 



Module AC 



In addition to modules AA and AB, furth- 
er modules, AC, AD, AE, AF, AG, AH, AI , AK, 
AL, AM, AN, and JZ are used in compiler 
control. The functions of these modules 
are briefly described in the following 
paragraphs. 



Module AC controls reading and writing 
operations on SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 
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Module AD 



All specified active storage is dumped 
ait the end of the phases stated or implied 
in the DUMP option. If the DUMP option 
includes either I, for the Annotated Dic- 
tionary Dump, or E, for the Annotated Text 
Dump, or both, then phase AD will load 
either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 



[Example of an EXEC card using the DUMP 
I option: 



Module AD performs inter-phase dumping. | 

I 



//STEPl EXEC PR0C=PL1LFC, 

PARM.PL1L='DUMP=(TE,QJ) ' 



I This statement specifies com.pilation using 
I the DUMP option to obtain a printout of the 
I text blocks, the annotated text blocks, and 
I of storage after the completion of compiler 
I phase QJ. 



Module AE 



The DUMP__Optiogi 



The DUMP option which is specified in 
the PARM field of the EXEC card indicates 
where dumping of main storage is to take 
place. It may be specified in one of the 
following ways: 

1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP=(AREA,Xi,X2,X3, . . . .Xn) means d 
dump of the storage after the named 
phase. 

AREA is any combination of TDPSCIE: 

T text blocks 

D dictionary blocks 

P phases loaded 

S scratch storage 

C control phase 

I annotated dictionary blocks 

E annotated text blocks 

The general syntax is ;; 

DUMPt=( [AREA] , {x| (y„z) },...)] 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 

The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

If AREA is omitted the default taken is 
DTSP. If a program check occurs and DUMP 
has been specified then AREA will be given 
the default DTSPC, 

Use of the DUMP option may cause the 
compiler to use more co2:e than the SIZE 
option specifies. This is because SIZE 
specifies the amount of core the compiler 
can use for normal compilation and does not 
allow for the internal compiler diagnostic 
dumps . 



Module AE is the finalization of the 
READ-IN Phase control. (See Fig. 4, Note^) 



Module AF 



Module AF is a control section consist- 
ing of a table containing the compiler 
options which may be used during a compila- 
tion. The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. A descrip- 
tion of the use of Module AF is given in 
Appendix G. 



Module AG 



Module AG closes SYSUT3 for output, and 
re-opens it for input. 

The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro-type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at SYSUT3 
DCB 



Module AH 



This module produces a 
dictionary. It prints out 
cations region in the first 
the offsets tables for each 
extended dictionary option 
The remainder of each bio 
out entry by entry. The BCD 
ed for those entries contain 
the end of the dump, a li 



dump of the 
the communi- 
block, and 
block if the 
is in use. 
ck is printed 
is translat- 
ing BCD, At 
St of all the 
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dictionary codes used is given, 
explanation for each code. 



with an [Module AN 



The module is called by phase AD only 
if an I is specified in the AREA field of 
the DUMP option. 



I This module contains the routines for 
I dictionary and text-block handling for the 
I normal-sized dictionary. 



Modules Al- AJ 



Module JZ 



Module AI is called if E is specified 
in the AREA field of the DUMP option. It 
provides an 'easy- to-read' text print in 
which the triples and pseudo-code items 
comprising the text are printed separate- 
ly. This option is available between 
phases lA and OG inclusive. 

Module AJ is called if I is specified 
in the AREA field of the DUMP option to 
produce the Annotated Dictionary Dump. 



Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 



4 8-CHARACTER SET PREPROCESSOR 



Module AK 



Module AK is the closing routine of 
the compiler. Its function is to release 
core used for dictionary, text blocks, 
scratch storage, and completed phases. 
If batch compilation is not specified, 
module AK closes all the files used by 
the compiler. If a batch compilation is 
specified, a check is made to determine 
whether any source programs are still to 
be compiled. Where there are none module 
AK closes all files. Where one or more 
programs remain to be compiled, the spill 
file only is closed, the batch delimiter 
card is scanned for syntax errors, and 
control is returned to module AA. 



Module AL 



This module contains the control rou- 
tines for dictionary and text-block han- 
dling for the extended dictionary. 



Module AM 



Module AM marks phases as either wanted 
or not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in CCCODE and marks the 
phases accordingly. 



Phase BX is the 48-character set prepro- 
cessor. It is loaded on programmer option 
and receives, as input, source text in the 
48-character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto back- 
ing storage ready for Phase CI, the first 
pass of the Read-In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas . Items within comments or character 
strings are ignored. 



When a poss 
vered, tests a 
or not one 
words has been 
found, it is 
set equivalent 
two periods a 
comma-period p 
colon if the 
immediately 
character. 



ible initial letter is disco- 
re made to determine whethe3r 
of the reserved operator key- 
found. If one has been 
replaced by its 60-character 
Similarly, appearances of 
re replaced by a colon, and a 
air is replaced by a semi- 
comma-period pair is not 
followed by a numeric 



Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the US-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The out- 
put from the preprocessor is the trans- 
formed text, record by record, followed by 
the original text. The Read-In Phase proc- 
esses transformed text but prints out the 
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original. 



Phase AS 



The preprocessor uses Coinpiler Control 

routine ZURD to obtain input, and routine 

ZUBW to place its output onto backing 
storage. 

N ote ; If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase BX is bypassed. 



COMPILE-TIME PROCESSOR PHASE 



The conipile-tiine processor consists of 

six physical phases. Each of these phases 

is executed once, unless an INCLUDE data 

I set is encountered. In this case certain 

phases will be re-executed. 

The coirpile-time processor moves source 
text that does not contain compile- time 
statements directly into text blocks. Dur- 
ing this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 

A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
I PL/I source program contained on SYSUT3 
I and, optionally, a punched card deck. 

If during the second pass, an INCLUDE 
I data set is processed, the entire procedure 
I indicated above is executed recursively to 
process this text. 

Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 



Line Numberinc 



As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
Ccin be keyed to them. These line numbers 
aire also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 



This phase, consisting of one physical 
module, is loaded if the option MACRO is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 



Phase AV 



This phase consists of one physical 
block. Its purpose is to initialize cer- 
tain cells in the communications region for 
the compile-time processor phases. 



I Phase BC (BE, BF) 



Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE con- 
tains the control routine. 

Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a compile- 
time statement is encountered, it is 
encoded into a set of interpretive instruc- 
tions and, except for compile-time proce- 
dures, added to the current text block. 
Compile-time procedures are similarly 
encoded, but are placed in separate text 
blocks . 

As compile-time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DOs. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
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given for syntax errors in compile-tirne 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 



I indicating where the text is to be found, 
I from the message directory block, module 
I BO. 



I Module BN (BP, BV) 



Phase BG (BI, BJ) 



Phase BG consists of three physical 
modules: BG, BT, and BJ, which contain the 
control routine, the macro-code interpret- 
er, and the built-in function handler, 
respectively. 

In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time vari- 
ables or compile-time statements, which it 
uses to produce the output text. As line 
numbers are encountered in the text, they 
are placed into a location containing the 
current line number. This is used both for 
phase BG diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 

If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement — pos- 
sibly repositioning the scan cursor -- and 
returns to the scan. 

The output of this phase is a PL/I 
source program contained on SYSUT3, and, 
optionally, as a sequenced card deck. 



I Pha se BM (BO) 



Phase BM examines the 
chains in the first dicti 
programmer options which 
ity level of messages r 
are no messages, it passe 
clean up phase (BW) . If 
ges are required, the ph 
process them after scann 



heads of the error 
onary block, and 
specify the sever- 
equired. If there 
s control to the 
diagnostic messa- 
ase loads BN to 
ing the chains and 



time processor 
n modules BP 

are ordered by 

les. BM will 

which contain 

rticular pass. 

these modules, 
ts the required 
time error mes- 
ed, module BN 



The text of all compile- 
error messages is kept i 
through BV. The messages 
severity, within these modu 
have listed those modules 
messages required for a pa 
Module BN loads and releases 
one at a time and extrac 
messages. When all compile- 
sages have been process 
returns control to BM. 



Phase BW 



The purpose of this phase to set all 
tables and communication region cells to 
the values required by the compiler proper. 
In addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies) , and compilation will be bypassed. 



THE READ-IN LOGICAL PHASE 



The Read- In Phase is implemented as five 
discrete physical phases, each of which 
processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translate table 
provided by compiler control. 

The source text is scanned for syntacti- 
cal errors. During this time an output 
string is built up, which consists essen- 
tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
bered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains). If the SOURCE option 
applies, source statements, with their num- 
ber, and optionally, their block levels and 
DO-nest levels, are printed out immediately 
after they have been read. 
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When the input text provides an end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been 
completely processed. By keeping a count 
of PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end-of -program indication is fvound. 
If there are more records after the end of 
the external procedure, they are ignored. 

If an end-of-file indication is encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 

The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 



If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see Appendix 
C.2) . 



Chains Constructed__by Read-In 

To provide rapid scanning in the 
dictionary phases, the following chains are 
constructed by the Read-In Phase: 

The CALL chain 

The PROCEDURE-ENTRY-BEGIN chain 

The DECLARE chain 

The ALLOCATE chain 



Statement _Numbering 



E rrors a nd Diaqnostic_ Mess ages 



All statements are given a sequential 
number. This includes each compound state- 
ment, each statement contained in a com- 
pound statement, block and group delimiting 
statements, and null statements. The ELSE 
clause is not regarded as a statement for 
numbering purposes. The numbering of the 
statement is indicated on the source list- 
ing. Diagnostic messages also refer to 
these statement numbers. 



Statement__and_Entry Labels 



Statement and entry labels appearing in 
the source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region- may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG., 

When a label declaration is found, an 
entry is made in the label table with a 
statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 



As the source text is scanned it is 
syntactically analyzed. Keywords are iden- 
tified and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
are not normally analyzed. This is left 
for Phase EK. 

When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is generat- 
ed. The main aim of the Read-In Phase is 
to present syntactically correct text to 
subsequent compiler phases. Certain cor- 
rections are performed without prejudicing 
the complete compilation. 

Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 

Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntacti- 
cally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circum- 
stances will include at most the first ten 
characters of the text that is skipped. 
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The Output Stri ng 



The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a suc- 
cessful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, howev- 
er, does not apply to DECLARE statements. 
Formats of the statements appearing in the 
output string are given in Appendix D.2. 



Identifiers 



All identifiers which are not recognized 
as keywords in the source text appear in 
the output string. 



Bytes 


4K I- 

7K 



8K 
12K 
16K 



T T 

CE I CK I 
+ + 

CG I CL I 
+ + 



CA 
CC 

CN 
CO 



CM 



.± ±. 



-T T ^ 

I CR I CR II 

■+ + ^ 

I CS I CV II 

4 1 ^| 



CT 



CW 



CI I 
_X J. ± X I 

PASS 1 PASS 2 PASS 3 PASS U PASS 5 



Figure 5. Storage Map for the Read-In Phase 

The Read-In Phase consists of five phas- 
es or passes, each containing at most five 
modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Appendix B. Control for each pass resides 
in modules CI, CL, CO, CS, and CV respec- 
tively. The following description refers 
to the phases by these names. 



Constants 



All 
string. 



constants appear in the output 



Phase CI 



Operat ors 



All operators appear in the output 
string. 



During phase CI (the first physical 
phase of the Read-In Phase) the source text 
is read into storage, and character codes 
are converted to an internal form. State- 
ment types are identified, labels are 
inserted into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D.l). 



Initial Labels 



Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and then handled as if they were 
normal labels. 



STRUCTURE OF THE READ-IN LOGICAL PHASE 



The Read-In Phase can occupy 16K bytes 
of storage for any one pass. A storage map 
for this phase is shown in Figure 5. 



A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 



These statements are: 

PROCEDURE-END 

BEGIN-END 

DO-END 

IF-THEN-ELSE 

ON 

If the SOURCE Option has been requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output medi- 
um. 
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Phase CL 



The output from phase CI is processed 
and the statement types listed below are 
analyzed in greater detail: 



ENTRY 

PROCEDURE 

DO 

Iterative DO 

RETURN 

GO TO 

DELAY 

DISPLAY 



FREE 

WAIT 

READ 

WRITE 

DELETE 

UNLOCK 

LOCATE 

REWRITE 



DURE, BEGIN, DECLARE, and ENTRY statements. 
The text is then scanned for contextual use 
of identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Appendix C. 



If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 



Phase CO 



Constr ucting _and_Access_ing the Dictionary 



The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 



The output from phase CL is processed. 
In particular, the DECLARE, ALLOCATE, and 
CALL statements are analyzed in greater 
detail. The syntax of attributes is 
checked, but their consistency is analyzed 
during phcise EK. If the source program 
does not contain any of these three state- 
ments, this pass is not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 



Phase CS 



To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 



The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 



The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 



Phase CV 



"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 



This phase processes the output from 
earlier phases. In order to assist subse- 
quent processing, chains are constructed 
for PROCEDURE, ENTRY, BEGIN, CALL, ALLO- 
CATE, and DECLARE statements. 



If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY'S entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 



THE DICTIONARY LOGICAL PHASE 



The Dictionary Phase forms a dictionary 
of identifiers, by first analyzing PROCE- 



When no further BCD entries are to be 
made in the dictionary, and all BCD iden- 
tifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 



Section 2 (Compiler Phases): Dictionary Logical Phase 31 



Tes ting for Consistent Attr i bute s 



A test is made at the start of each list 
of attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 



may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for paramet- 
er matching. Any data description given on 
these statements is to be used for conver- 
sion at a RETURN (expression) , but not for 
determining the result returned by a func- 
tion reference. 



Com piler Pseudo-Variables and Functi ons 



Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed immedi- 
ately following the BEGIN, PROCEDURE or 
ALLOCATE Statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the expres- 
sion. Compiler functions with a format 
similar to the pseudo-variables are also 
created. The function result is the speci- 
fied array bound, or string length. Com- 
piler functions are created for two purpos- 
es: first, to set bounds for base elements 
of structures when the structure bound is 
an expression, or to set the bounds of 
temporary arrays; and secondly, to set the 
storage address of a dynamically defined 
item immediately before its use. The for- 
mats of all the compiler pseudo-variables 
and functions appear in Appendix D.8. 



Dictionary Entr ies for_Entry Points 



A PROCEDURE or ENTRY Statement may have 
more than one label. Each label must have 
a data description to indicate the type of 
data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 



Parameter descriptions fo 
eter matching, and data de 
for determining the type of 
by a function reference, m 
by the source programmer in 
laration. If these are not 
and implicit rules must be u 
data description, but no par 
tion can be given. 



r use m param- 
scriptions used 
data returned 
ay be specified 
an ENTRY dec- 
given, default 
sed to build a 
ameter descrip- 



Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 

The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY Statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a circu- 
lar manner. If there are no ENTRY state- 
ments the entry type 1 of the PROCEDURE 
statement points at itself. 

External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6 . 
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Note: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 



Phase ED 



Phase ED simply moves a set of subrou- 
tines, which handle certain features of the 
list processing facility, into the communi- 
cations region and sets a register to point 
at them. The routines will later be used 
by phase EL. 



construct chains linking entries of parti- 
cular types. 



For PROCEDURE-BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 



Phase EG 



Phase EG has two main functions. The 
first is to set up a hash table, and to 
insert the label entries left in the dic- 
tionary by the Read-In Phase into hash 
chains. The second function of the phase 
is to create dictionary entries for PROCE- 
DURE, BEGIN, and ENTRY statements, and to 
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Statement labels are scanned and their 
entry type 2 dictionary entries are creat- 
ed. The relevant data bytes in the dic- 
tionary are completed by default rules (see 
Appendix C.3) . 

For ENTR Y statements, entry type 1 dic- 
tionary entries are created (see Appendix 
C.2), and the circular PROCEDURE-ENTRY 
chain is extended. Formal parameters, 
attributes, and labels are processed in a 
similar manner to those for PROCEDURE 
statements, except that the options code 
byte is not created. 



Phase EI 



Phase EI scans the chain of DECLARE 
statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 



Structure Level Numbers ; 

verted to binary. 



these are con- 



Factored Attributes; parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can distingu- 
ish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 
slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 
level. 

The following attributes are processed: 



DIMENSION; dimension table 
Appendix C,8) are created in 
and the source text is 
pointer to the entry. Fix 
converted to binary and 
table. A second file statem 
dix D.8) is created at the e 
for adjustable bounds, and a 
statement is inserted in 
table. Identifiers with 
bounds share the same dimens 



entries (see 

the dictionary 

replaced by a 

ed bounds are 

inserted in the 

ent (see Appen- 

nd of the text, 

pointer to the 

the dimension 

identical array 

ion table. 



P RECISION ; precision and scale constants 
are converted to binary. 



INITIAL; dictionary entries are created 
for INITIAL attributes. 



INITIAL C ALLi second file statements 
created for INITIAL CALL attributes. 



are 



CHARACTER and BIT; fixed length constants 

are converted to binary; a code byte marker 
is left for ♦ lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length con- 
stants, and the source text is replaced oy 
pointers to the statements. 



DEFINED: 



second 



file 



statements (see 
and the source 



Appendix D.8) are created 
text is replaced by pointers to the state- 
ments. 

PO SITI ON^ the position constant is con- 
verted to binary. 



PICTURE: 



dix 



a picture table entry (see Appen- 
C.7) is created and inserted into the 



picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 

USES and SETS; USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 

LIKE; BCD entries are created for iden- 
tifiers with the LIKE attribute. 

LABEL ; if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

OFFSET and BASED: Second file statements 



are made and text references are inserted 
in the DECLARE statements for these attri- 
butes. 

AREA; Fixed-length specifications are con- 
verted to binary; second file statements 
are made for expressions; a code byte, 
followed by the length of text reference, 
is inserted in the DECLARE statement text. 



identifiers, or 



All other attributes, 
constants are skipped. 



I Phas e_EL__(^EKj;__EM2 



Phase EL, consisting of modules EK, EL, 
and EM, scans the chain of DECLARE state- 
ments constructed by the Read-In Phase. 

An area of storage known as the attri- 
bute collection area is reserved. This is 
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used to store information about the iden- 
tifiers, and has entries of a similar 
format to that for dictionary entries. 



Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types: 

1. Data Items (see Appendix C.U) 

2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C.U) 

3. Label Variables (see Appendix C.U) 

4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

6. Parameters (see Appendix C.7) 

7. Event Variables 



After the dictionary entry has been 
made, further processing (e.g. linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 



Task Variables 



Phase EP 



Identifiers appearing as multiple dec- 
larations are rejected and a diagnostic 
message is given. 



The attributes to be associated with 
each identifier are picked up in three 
ways . 



First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 



Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch core storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 



Finally, any attributes which are 
rcjquired by the identifier, and which have 
not been declared, are obtained from the 
default rules. 



Phase EP first conditionally marks later 
phases as 'wanted' or 'not wanted, ' accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique.. 

The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Appendix 
C.2). If this default data description 
does not agree with the description derived 
from the PROCEDURE or ENTRY statement, a 
warning message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1 . 



The CALL chain 
each point in the 
searched for the i 
If the correct 
tionary entry for 
made (see Append 
rules for data des 
the entry, the 
agreement with any 
names. If there i 



is then scanned and, at 
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message is generated, and a duirnny diction- 
ary reference is inserted. 



If an identifier 
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formal parameter. If 
parameter is made 
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of the formal para 
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In all cases, the 
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Phase EY 



Phase EY is an optional phase which 
processes all ALLOCATE statements. 



The second fil 
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All ALLOCATE Stat 
chain are then s 
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Phase EW 



A copy of the die 
allocated item is then 
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Phase EW is an optional phase, loaded 
only if any LIKE attributes appear in the 
source program. 



This phase scans the 
has been constructed by 
completes the dictionary 
structure containing a 
When a structure in the 
found, its validity is ch 
sion data and inherited 
saved. The dictionary i 
reference of the "likened 
the entry is checked for v 



LIKE chain which 

Phase EK, and 

entry for any 

LIKE reference. 

LIKE chain is 

ecked, and dimen- 

information are 

s scanned for the 

" structure and 

alidity. 



This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. Inher- 
ited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with varia- 
ble dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 



In the case of an ALLOCATE statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the 
original dictionary reference. 



All pointer qua 
text are checked 
qualified variable 
occurrence of a 
pointer a new diet 
the variable is 
structure is cop 
statement is made 
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The BCD of the pointer and the based 
variable in the text are replaced by the 
new dictionary reference followed by pad- 
ding of blanks which will be removed by 
phase FA. 

The based variable can be the qualified 
name of a structure member. If this is so, 
the name is checked for validity. Only the 
first part or lowest level of the qualified 
name in the text is replaced by the dic- 
tionary reference of the member. It is 
preceded by a special marker to tell phase 
FA that a partially replaced name follows. 



Phase FA 



Phase FA scans the text sequentially. 
If, during the scan, qualified namies are 
found with subscripts attached, they are 
reordered so that a single subscript list 
appears after the base element: name. The 
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dictionary is scanned and references 
obtained for any identifiers which are, 
I contextually , file, event, pointer varia- 
I bles, or programmer-naiTied ON conditions. 
If no reference is available, a new dic- 
tionary entry is made. The identifier is 
then replaced in the text by the dictionary 
reference. 



PROCEDURE, EEGIN, DO, and END statements 
cause the current level count to be updat- 
ed. 



Phase FI 



If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. If it is not, a new 
dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 

If a P FORMAT marker is found, the 
dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 
entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. The dictionary reference replaces 
the format marker in the text. 



The CALL chain i 
statements. The appea 
BEGIN, END, and DO 
adjustments to the lev 
If statement introduct 
(such as SN, SL, CL, 
statement number is 
items associated with 
ENTRY, and DECLARE st 
leaving only the stat 
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ranee of PROCEDURE, 
statements results in 
el and count stacks, 
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updated. All data 
the PROCEDURE, BEGIl^, 
atements are removed, 
ement identification 



The code byte 
(see Appendix 
label constant 

EEGIN block. 



Phase FI scans the text and checks, 
where possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid, 
for GOTO is changed to GOOB 
D.l) if the branch is to a 
outside the current PROC or 
If the branch is to a label variable, GOOB 
is set up unless a label value list was 
given at the declaration, and all members 
of the list lie within the current block. 

I List processing based variables in ALLO- 
JCATE, FREE, READ, WRITE, and LOCATE state- 
jments are marked as requiring a Record Dope 
jvector (RDV). Variables in TASK and EVENT 
I options on CALL statements are checked for 
I validity . 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 



Phase FE 



When an identifier is found, the hash 
chain is used to scan the dictionary for a 
valid entry. If one is found, its dic- 
tionary reference replaces the identifier 
in the output text. If no valid entry is 
found, and the BCD does not agree with any 
entry in the tables of BCDs of PL/I built- 
in functions, then a dictionary entry is 
made as if the identifier was declared in 
the outermost procedure. However, if the 
BCD agrees with a function name, and it is 
not in a SETS position, a function entry is 
made in the dictionary, emd its reference 
is used to replace the identifier. 

If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.l). 

Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 



Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 



Phase FK 



Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 



Phase FO 



Phase FO makes a dictionary entry for 
each ON condition mentioned inside a block. 
For ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
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condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each dif- 
ferent BCD name. 

SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT Statement is replaced by 
an error statement. A diagnostic message 
is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 

A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1, 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 



label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 



Phase FQ 



Phase FC checks the validity of each 
item in the PICTURE chain in the dictionary 
(see Appendix C.7). 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate diag- 
nostic messages to be generated. 



Phase FT 



Phase FT performs certain housekeeping 
tasks. These are as fellows: 



List Processing POINTER and OFFSET vari- 
ables in CHECK lists are treated as data 
variables. BASED variables may not appear 
in CHECK lists. 

A dictionary entry is made for the list 
processing AREA condition. This condition 
is always enabled and may not appear in a 
condition prefix. 

Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 

A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dumimy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error) . If a dummy reference is 
found in the second file, the compilation 
is aborted. 

Wherever an element of a label array is 
initialized by appearing as a statement 



I 1. The second file entries are scanned 
and pointers to each entry are insert- 
ed in the associated dictionary entry 
(see Appendix C.7). 

2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 

3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 

4. Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths . 

5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 

6. Items which have expressions to be 
evaluated at prologue time, e.g. par- 
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ameter descriptions for entry points 
and defined items,, are placed in the 
AUTOMATIC chain for the appropriate 
block. 

The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 

The 'dope vector required' bit (see 
Appendix C.5) is set on where neces- 
sary. 

When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 



based variable is a structure this ref- 
erence is propagated throughout the struc- 
ture. The PEXP statement is then deleted. 

A similar procedure is performed for 
BVEXP (based variable expression) second 
file statements whereby the dictionary ref- 
erence of the AREA is inserted into the 
dictionary entry of the associated OFFSET 
variable. 

ADV second file statements referring to 
a BASED variable are checked for compliance 
with the (F) implementation rules. If the 
rules are obeyed, the dictionary entty of 
the 'bound' variable is inserted in the 
appropriate slot in the multiple table 
entry. 

If an MTF statement refers to a based 
variable the appropriate bound slot is 
copied from one multiple table entry to the 
other. 



10. Dictionary entries similar to label 
BCD entries are made for all TASK 
variables. 



Phase FX 



Phase FV 



Phase FV scans the second file and 
reverses the pointers to the dictionary. 

Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 

When PROCEDURE and BEGIN Statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 

When an initial label statement is 
encountered in the main text, it is not 
copied into the output string. 

I The dictionary reference of a POINTER in 

I a PEXP (pointer expression) second file 

I statement is inserted into the defined slot 

I of the associated based variable. If the 



Phase FX is an optional phase entered 
only if the XREF or ATR (cross reference 
lister and attribute lister respectively) 
options are specified. It scans the STA- 
TIC, AUTOMATIC, and CONTROLLED chains, and 
the formal parameter lists. 

For each identifier it creates an entry 
in scratch text storage of the form: 



2 bytes 



3 bytes 



3 bytes 



r T " T 1 

I Dictionary |Text reference) Text chain | 
I reference | to this item j j 

L X . X J 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an iden- 
tifier is found in the text, an entry is 
created in a chain of entries from the 
dictionary entry of the identifier. 

Each member of the chain which rep- 
resents a reference to the identifier, has 
the following form: 



2 bytes 



r T" 

I Statement number | 

L 1. 



3 bytes 
Text chain 



Each reference chain for 
is in scratch text storage. 



an identifier 
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The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 

2. The BCD of the identifier is printed. 
For variables having constant dimen- 
sions and/or constant string lengths, 
these dimensions and lengths will be 
listed. 



If the program contains iSUE references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 



Additions to the Text 



In addition to changing the content of 
the text, the Pretranslator introduces some 
new symbols and grammatical forms into the 
source text. These are as fellows: 



3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are print- 
ed 

4. If the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase, 



!IIh6_ymbrella^SYrnbolj_ this is designat- 
ed by the symbol code X'5E', which is 
used to introduce a literal as an 
operand. It is used only as a bound of 
a DO loop, or in a call of the dope 
vector pseudo- variable. 

Statements within statements : a list 

of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in parenthe- 
ses. Statements in the list are given 
no statement number field, but the^,' 
have semi-colons at the end. 



I/ O statements : 
ments 



the form cf I/O state- 



THE PRETRANSLATOR LOGICAL PHASE 



The purpose of the Pretranslator Phase 
is to expand those statements in the lan- 
guage that can be broken down into simpler 
statements, and to insert explicitly gener- 
ated statements in place of implied ones. 

Second level markers (see Appendix D.l) 
are removed from internal compiler codes, 
and some of the I/O statemients are changed 
into a form more suitable for the pseudo- 
code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
library routine are provided. 

Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 

If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 



is changed considerably during 
the pretranslator phases, as explained 
in the description of Phase GB. 

BUY and SELL statements ; special 

statements are introduced for manipula- 
ting temporary storage at object time; 
they have a form similar to ALLOCATE 
and FREE statements. 

Tem£orarY_.Stora3ej_ Pretranslator phas- 
es create temporary variables for func- 
tion and procedure calls where the 
arguments do not match the final parami- 
eters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure assign- 
ments, and for iSUB defined subscript 
lists. The Pretranslator has no mecha- 
nism for evaluating expressions. 
Therefore, temporaries which have no 
data type are created for expression 
arguments with no parameter descrip- 
tion. The data type of these temporar- 
ies is completed by the Translator 
generic phase when the resultant data 
type of the expression has been deter- 
mined. 
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The temporary variables created by the 
Pretiranslator have dictionary entries 
similar to variables declared in the 
source program, except that the tempo- 
rarie^s do not have BCD names. 



I Phase GA 



Phase GA is an optional phase which 
scans the STATIC chain for file constants 
and OPEN control block entries. 

For file constants a DECLARE control 
block is constructed from the file name and 
aittributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a dictionary entry 
is constructed, chained from the file con- 
stant, containing the core image of the 
56-byte DECLARE control block. 

For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte core image of the OPflN 
control block. 

When the COBOL option is encountered in 
the ENVIRONMENT String of a FILE Statement, 
phase GA sets the low-order bit in the 
fifteenth byte of the FILE dictionary 
entry. Although this action overwrites the 
dictionary reference of the ENVIRONMENT 
string, it is permissible since GA is the 
only phase which processes this string. 

The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entry during the diagnostic check and con- 
struction of the DCLCB or the OCB. 



ined for validity by GC. Diagnostics are 
put out for LOCATE and READ SET statements 
for which COBOL files are used. A tempora- 
ry variable is created to assist such data 
transfers as occur when a COBOL record is 
read into or written from a structure which 
does not contain either wholly binary or 
wholly character data. 

I/O activity found within a PROCEDURE or 
BEGIN block causes the bit X'lO' to be set 
to one in the optimization byte of its 
entry type 1. 



Phase GK 



Phase GK scans the source text for 
function references. If it finds one, it 
inserts a special miarker byte before the 
argument list, followed by: 

I 1. Two code bytes giving information 
I about the type of function, and wheth- 
er it was called with the TASK option 

2. The current statement num.ber 

3. The current block level and count 

This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding 
dictionary entry. 

I NULL, NULLO, and EMPTY built-in func- 
jtions are recognised and converted to con- 
I stants . 



I Phase GB (GC) 



I Phase GB, containing Modules GB and GC, 
I processes I/O statements. GB removes all 
I second level markers from internal charac- 
ter codes (see Appendix D.l). It then 
reorders the options so that either EDIT, 
DATA, or LIST options appear last. 

In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 

In format lists iteration factors are 
expanded. 

I RECORD I/O statements for which the 
I COBOL file option is recognized are exam- 



I Phase_ GO 



This phase acts as a pre-processor for 

phase GP. 



Phase GP 



Phase GP scans the text for procedure 
and function calls with arguments. These 
are detected by the special markers insert- 
ed by Phase GK . 

Temporaries (see Appendix C.4) are 
created for any arguments which are expres- 
sions. (An expression is defined as being 
any sequence of variables and operators. 
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other than single variables followed only 
by a subscript list, or only by a defined 
subscript list and then a subscript list) . 
If a parameter description has been 
declared in an entry declaration, the tem- 
porary which is created is of the same type 
as the parameter description. Otherwise, a 
"chameleon* temporary of unspecified data 
type is created, its type being subsequent- 
ly completed when the expression type has 
been determined by the Translator generic 
phase. 



j If a TASK, EVENT, or PRIORITY option is 
[present in a CALL statement, then any 
I temporaries which are created are of the 
1 'not sold' type. 

If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 



Expressions are scanned for arrays 
(including partially subscripted arrays) , 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 



Where the expression contains a partial- 
ly subscripted array, a temporary is creat- 
ed with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible, a 
warning message is printed, and a 
temporary is created 

2. If the data types are incompatible, an 
error message is printed, and the 
parameter description is ignored 

When the argument is a single partially 
subscripted array which matches the param- 
eter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. 



Whenever a temporary 
statement contained in 
brackets is inserted in 
followed by the assignment 
sion or non-matching arg 
porary. After the end of 
function call, all the tern 
ed in the call are relea 
SELL statement in nested 
ets. 



is created, a BUY 
nested statement 
the output text, 
of the expres- 
ument to the tem- 
the PROCEDURE or 
poraries generat- 
sed by means of a 
statement brack- 



A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 

When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 



Phase GU 



Phase GU scans the source text for 
PROCEDURE, BEGIN, and END Statements, and 
for statements that may raise a possible 
CHECK condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK Statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables) . 



Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 



Phase HF 



The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
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each diinension. It i 
AUTOMATIC chain for the 
Iterative DO loops ar 
the temporaries iteratin 
and lower bounds of that 
sion. Base elements are 
temporaries as subscript 
remaining unchanged, 
created for the DO loops 
ments for the temporari 
which have been created 
the original statement. 



s then added to the 
appropriate block, 
e constructed, with 
g between the upper 
particular dimen- 
assigned, with the 
s, and with scalars 
END statements are 
I, and SELL state- 
es. The statements 
are nested within 



For each reference found, the subscripts 
are computed for the base array correspond- 
ing to the subscripts given for the defined 
array. 

The subscripts of the defined array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 



Phase HK 



THE TRANSLATOR LOGICAL PHASE 



The purpose of Phase HK is to detect 
array or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nested assignment statements. 

The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression con- 
taining only scalars is left unchanged. 

For unsubscripted arrays which are 
equally spaced in core only one temporary 
is bought, but for all other arrays a 
temporary is bought for each dimension in 
the array. This temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name SUBSCRIP- 
TRANGE is enabled for any statement, a 
temporary will be bought for each dimension 
in all cases. Iterative DO loops are 
constructed: for an unsubscripted array 
expression of dimensionality N, the tem- 
porary will iterate between the lower bound 
of the Nth dimension and an evaluated 
product so that all elements of the array 
are processed; while for other arrays the 
temporaries will iterate between the lower 
and upper bound of the particular dimension 
of the array. The assignment statement is 
added to the output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
statements for the temporaries. The state- 
ments which have been created are nested 
within the original statement. 



The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the Transla- 



The syntax of pseudo-variables is 
checked. 



Phase HP 



also 



tor IS to convert 
Pretranslator into a 
(see Appendix D.4) 
form of an operator 
two operands. 



the output from the 

series of "triples" 

A "triple" is in the 

followed normally tiy 



Phase HP scans 
references to items 



the source text for 
defined using iSUBs. 



The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 

When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc. , are 
regarded as operators. 

After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indi- 
cate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments. This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
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Phase lA rearranges the source text into 
a prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the com^pare operator in 
the stack, and to continue the scan, plac- 
ing any subsequent operand in the stack 
until another operator is found. The nor- 
mal stack action is to generate a triple, 
consisting of the top operator in the stack 
and the top two operands, eliminating the 
items from the stack, and inserting a 
special flag as the operand of the triple 
which is now at the top of the stack. The 
source (compare) item is then compared with 
the new top stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e» 
statement types with no operands, and oper- 
ators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 

Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not. Phases IL, IM, IN, 
lO, IP, IQ, MG, MH, MI, MJ, MK, MM, MN , and 



MO are marked not wanted. Phases MB and 'MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase lA independently. 

I When ALLOCATE and FREE .statements occur, 
I phase NG is marked wanted. When LOCATE 
I statements occur, phase NJ is marked want- 
|ed. 



Phase IG 



Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggre- 
gate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 



Phase IL 



This phase immediately precedes the main 
generic phase. Its function is to obtain a 
block of scratch storage and place the 
entire built-in function table in that 
area. The starting address of this table 
is then placed in a register, and control 
is released to the main generic processor. 



Phase IM 



Phase IM scans the source text for 
procedure invocations by a CALL statement, 
procedure or library invocations by a func- 
tion reference, and assignments to 
"chameleon" dummy arguments (see Phase GP) . 



4U 



Any procedure ■ which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function ref- 
erence is also replaced by the appropriate 
family member. 

The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 



I Phase JD 



Phase JD scans the text for concatena- 
tion and unary prefixed triples with con- 
stant operands. These are evaluated and 
the results are placed in new dictionary 
entries. The references are passed through 
a stack into the corresponding result slots 
in the text. 



THE AGGREGATES LOGICAL PHASE 



The Aggregates Phase consists of two 
physical phases, the structure processor 
(phase JK) and the DEFINED chain check 
(phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 
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I PMse_IX 



Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually . 
Error messages are produced if errors are 
found and the statement in error is erased. 



The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 



(Phase JI 



The first function of phase JI is to 
obtain scratch storage in which the text 
skeletons contained in phase JJ are to be 
held. Phase JJ is then loaded, and its 
contents are moved to the scratch storage 
for subsequent use by phases JI and JK. 
Phase JJ is then released and control is 
returned to phase JI. 

The main function of phase JI is to 
expedite data interchange activities. A 
scan of static, automatic, and controlled 
chains is performed. The chains are reor- 
dered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
entry in the COBOL chain is mapped as far 
as possible at compile-time, removed from 
the chain, and placed in the appropriate 
AUTOMATIC chain. 



Data type triples in the text are 
scanned and a stack of temiporary results is 
created containing the values: 



Phase JK 



X'UO' for POINTER 

X' 02' for AREA 

X'OO' for any other data type 

The maximum permitted number of tempo- 
raries at any one point in a program is 
200. The compilation is terminated if this 
figure is exceeded. 



I This phase scans the AUTOMATIC, STATIC, 
I and CONTROLLED chains for arrays, struc- 
jtures (including COBOL structures), adjus- 
I table length strings, DEFINED items, AREA, 
I and POINTER arrays and structures, TASK and 
I EVENT arrays, and TASK and EVENT arrays in 
I structures . 
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For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 

The offset from the start of the major 
structure 

The padding required to align the ele- 
ments on the correct boundary 

All multipliers of arrays of struc- 
tures. 

For all minor structures and major 
structures the following calculations are 
made: 

Size 



items if they do not fall into the 
class which is to be addressed direct- 
ly. The code first maps the DEFINED 
item, if necessary, calculates the 
address of the start of the storage to 
be used by the DEFINED item, and final- 
ly, relocates the DEFINED item using 
this address. 

I Dope vector descriptor dictionary 

[entries and record dope vector dictionary 

entries are made for items which need to be 

mapped at object time, or which appear in 

RECORD-oriented input/output statements. 



Phase JP 



The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 

Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in struc- 
tures or otherwise) with the VARYING attri- 
bute. In addition, code is generated to 
set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 

I The routine which generates code for 

I arrays of VARYING strings is also used to 

I generate code for the initialization of 

I arrays of TASK, EVENT, and AREA variables. 

DEFINED items are processed in the fol- 
lowing way: 

Code is generated to set the multipli- 
ers and virtual origin address of cor- 
respondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining base dope vec- 
tor. 

Code is generated for overlay DEFINED 



Phase JP scans the DEFINED chain, and 
differentiates between the following: 

1. Correspondence defining 

2. Scalar overlay defining 

3. Undimensioned structure overlay defin- 
ing 

4. Mixed scalar-array-structure-string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item may 
validly overlay the elements of the base 
belong to the same defining class, and that 
the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-structure-string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 



THE PSEUDO-CODE LOGICAL PHASE 



The Pseudo-Code Phase accepts the output 
of the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
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certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the Storage 
Allocation Phase in the output stage. 



The Use of Symbolic Unassigned Registers 



Pseudo-Code Desig;n 



Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a stand- 
ard size of three or five bytes. A varia- 
ble sized unit, however, is also available 
to allow flexibility, its length being 
specified by a length code within the unit. 
The formats of pseudo-code instructions are 
shown in Appendix D.6. 

A unit consists of a one-byte operation 
code followed by normally, a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 



Pseudo-Code Items 



In addition to there being one pseudo- 
code item for each machine instruction 
which could be generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 

These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 



Whenever a new regi 
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inserted into the 
egister Allocation 
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Th e Use of Physical_Registers 



Physical general purpose registers will 
be used either as arithmetic registers or 
as parameter registers. 



With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the reg- 
isters as necessary. This will apply both 
to the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 
of primary interest to the expression 
evaluation phases, it should be realised 
that all phases which generate calling 
sequences must be aware of the current 
status of arithmetic registers, and gener- 
ate code to save and restore them as 
necessary. 



In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 



Te mpor ary Descriptors 



Register Description 



In all cases where a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 



As expressions are evaluat 
of intermediate temporary 
obtained. These results, or 
es, may be contained in 
assigned registers, in ad 
erence, with or without an in 
or in workspace. Temporary d 
pies (TMPD) are inserted 
enable the correct pseudo-cod 
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T emp orary Workspace 



A block of temporary workspace is used 
to store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avai- 
lable workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an inter- 
mediate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 

At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT. 



a set of triples is created and 
inserted into the text. For any array 
declared INITIAL, the initial string 
is scanned, and a mixture of triples 
and pseudo-code is generated. 

2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 

Phase LE also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase lA. 



Phase LD 



Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 

When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 



Phase LA 



Phase LA is a utility phase which 
remains in storage during the whole of the 
Pseudo-Code Phase. It provides the main 
scanning routines to handle input and out- 
put text during the Pseudo-Code Phase. 

The routine/subroutine directories in 
this publication give a complete list of 
the routines provided, together with brief 
descriptions of their functions. 



For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 

Phase OS converts the constants to their 
specified internal form. 



Phase LG 



Phase LB 



Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples. 

Whenever one of these is found, a scan 
is made through the imimediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) statement referring 
to a variable replication factor in the 
array initial string. Processing of these 
statements and of the corresponding array 
initial strings is then carried out. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 

1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar varia- 
bles that have been declared INITIAL, 



Phase LG scans the text for DO loops. A 
stack is maintained with each entry con- 
taining a description of a DC group. The 
stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack. 

DO specification triples are analyzed, 
and expressions are assigned to temporar- 
ies; subscripts in the control variable are 
assigned to binary integer temporaries if 
they are themselves variable. At the end 
of each specification, pseudc-code and tri- 
ples are generated to control the loop. 

Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO loops 
are removed from the text. 

For control variables, other than simple 
scalars, text is placed in the DC stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 
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variables, subscripts, functions, and 
argument markers. 



Phase LR 



The purpose of Phase LP is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan 
phase. Phase LA, is initialized and Phase 
MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch core at this 
time. Finally, control is passed to Phase 
LS. 



Phase LS 



Phase LS scans the source text to con- 
vert expression triples to pseudo-code. If 
a triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples +,-,*,/,**, 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
p]:ecision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ♦* 
and some complex type * and / operators. 
In these cases. Library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
firom the text. 

The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
Ccise a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result, is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top of the 
stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
string or a COMPARE operator. 



When subscript triples appear, a symbol- 
ic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which may use an inter- 
mediate result, are examined. If an oper- 
and is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 



Phase LV 



Phase LV provides string handling facil- 
ities for the pseudo-code phases. 

It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 

A string dope vector description is 
produced from, a standard string descrip- 
tion. 



I Phase LX (LW, LY) 



I Phase LX consists of three modules, LW, 
|LX, and LY . Module LW acts as a pre- 
I processor for LX and LY, moving constants 
I into scratch core prior to loading the 
I string-handling modules. 

I Phase LX scans the source text to 
convert string triples to pseudo-code. If 
a result is produced it is added to a stack 
of intermediate string results. 
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For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are 
aligned and are of known lengths less than 
or equal to 255 bytes; otherwise, Library 
calling sequences are generated. The 
triple and any TMPD triples are removed 
from the text. 
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In the case of the string triples CAT, 
AND, OR, and NOT, the operands are convert- 
ed to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings: 

1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 

2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 33 bits in length. 

I Otherwise, Library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 

For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
Library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 



I Phase MD 



Phase MD uses the SCAN routine LA to 
scan the text for ADDR built-in functions 
for which it generates in-line code. It 
appears before the normal function proc- 
essor phase and removes all trace of the 
in-line function. The general SCAN routine 
passes control when these functions are 
found. 



For all cases of ADDR the generated code 
establishes the start address of the argu- 
ment. If structure name arguments are 
present the structure chain is hashed for 
the first base-element. For array names 
the address of the first element is calcu- 
lated. 



Phase ME 



Phase KE identifies all invocations of 
the SUBSTR function and pseudo- variable, 
I all UNSPEC, STATUS, and COMPLETION func- 
tions, and those invocations of the INDEX 
function which can be implemented in-line; 
and generates pseudo-code to perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN 
[routine, and all trace of the invocations 
I of these functions is removed before the 
normal function processor phase is loaded. 
When the end-of-program marker is encoun- 
tered the terminating routine is entered. 



Phase MG 



Phase MB 



Phase MB scans the text for pseudo- 
variable markers and multiple assignment 



Phase MG identifies functions which are 
to be coded in-line, and generates, in 
their place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 
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The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 



ALLOCATION 


FLOOR 


BINARY 


BIT 


IMAG 


DECIMAL 


CEIL 


REAL 


FIXED 


CHAR 


TRUNC 


FLOAT 


COMPLEX 


UNSPEC 


PRECISION 


CONJG 







Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end-of-program mark- 
er is encountered the terminating routines 
are entered. 



Phase ML 



Phase ML scans the source text for 
generic entry name arguments to procedure 
invocations. 



Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC 
attribute. When one is found, the correct 
generic family miember to be passed is 
selected by this phase, depending on the 
entry description of the invoked procedure. 



Phase MM 



Phase MI 



Phase MI identifies functions which are 
to be coded in-line, and generates , in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 



MAX 
MIN 



MOD 
ROUND 



If the number of arguments to the MAX or 
MIN functions is greater than three, a 
Library call is generated. 



Phase MM scans through the source text 
for procedure invocations by a CALL state- 
ment, or for procedure or Library routine 
invocations by a function reference. 



Procedure invocations are replaced by an 
external standard calling sequence, and 
Library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Appendix 
D.IO). 



! If a CALL is accompanied by a TASK, 
EVENT, or PRIORITY option, library module 
IIHETSA is loaded rather than IHESA, and the 
[parameter list is modified to include the 
[addresses of the TASK and EVENT variables 
land the relative PRIORITY. 



Phase MK 



Phase MP 



Phase MK identifies functions which are 
to be coded in-line, and generates, in 
their place, pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line func- 
tion. 

The scan of the text is conducted by the 
general SCAN routine, and control is passed 
to the present phase when one of the 
following functions is found: 

DIM HBOUND 
LBOUND SIGN 
LENGTH FREE 



Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 
strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 
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Phase MS 



Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 

Optimization of constant subscript 
evaluation is carried out on arrays having 
one subscript which is an integer constant, 
and all following subscripts declared to 
have fixed upper and lower bounds. This 
applies to arrays with fixed-length ele- 
ments. 



STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
Library routine. 



For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a com.parison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the Library. 

The second operand iray be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the compar- 
ison specified in the IF statement. This 
mask is put into a generated instruction to 
branch if the condition is net satisfied, 
i.e. either to the ELSE clause or to the 
next statement. 



Phase NA 



Phase NA generates pseudo-code for the 
following triples: 

For PROCEDURE! and BEGIN_;^ triples a 
Library call is generated to the FREEDSA 
routine. 

For RETURN triples a Library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the Library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches, 

GOLN triples are comipiled into one- 
instruction branches to the compiler label 
number in operand 2 of the triple. 
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For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
Library error routine is called. 

REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 



Phase NG 



Phase NG generates the calling sequences 
to the Library for DELAY and DISPLAY and 
WAIT statem:ents. 

I It generates code to call the library 
I routines which handle ALLOCATE and FREE 
I statements whose arguments are EASED varia- 
jbles. 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for conver- 
sion. 

For DISPLAY statements, the message must 
be a CHARACTER String, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the Library. 
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For the tasking opt 
argument is an EVENT array 
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contains an EVENT array 
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For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to IHELSP. 
The parameter list is an 8-byte RDV fol- 
lowed by the address of the AREA variable 
from the IN option if present. 



For ALLOCATE, the pointer-variable in 
the SET option is given the value returned 
by IHESLP. 



REQUEST_CODES is a full-word containing 
four control bytes with the following mean- 
ings: 



Eyte 1 



Byte 2 



Byte 3 



Byte 4 



Operation code 


00 


READ 


04 


WRITE 


08 


REWRITE 


OC 


DELETE 


10 


LOCATE 


14 


UNLOCK 



Group 1 options code 

00 SET 

04 IGNORE 

08 INTO I FROM 

Group 2 option s code 
04 KEYTO 
08 NOLOCK 

Group 3 opt ions __code 
04 VARY INTO 
08 VARY KEYTO 
OC BOTH 



Note that null arguments in the paramet- 
er list or REQUEST_CODES are indicated by 
zeros. 



Phase NJ 



Phase NJ and its supporting block, NK, 
generate the Ccilling sequences to the 
library module for the RECORD-oriented 
input/output statements: DELETE, LOCATE, 
READ, REWRITE, UNLOCK, and WRITE. 



For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 

DC A(RDV|C0UNT^|PNTR2|SDV3) |0 

DC A (EVENT | LABEL**) | 

DC A ( SDV . KEYTO | SDV . KEYFROM | SDV . KEY ) | 

DC A(REQUEST_CODES) 

1 expr in IGNORE (expr) 

2 pntr in READ SET (pntr) 

3 SDV of varying string in READ INTO 

(varying string) 

4 Compiler label as result of LOCATE 
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In the case of the LOCATE statement, the 
phase is responsible for generating code to 
set the pointer variable with the pointer 
value returned in the first word of the RDV 
by the library. If the BASED variable was 
a structure with a REFER option in an 
extent definition, it is also responsible 
for generating code to initialize the 
extent variable named in the REFER option. 

The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 

I The record dope vector (RDV) is assumed 
to have been constructed by earlier phases, 
(except in the case of CONTROLLED or BASED 
I variables or CONTROLLED or EASED aggre- 
I gates, when the procedure is as follows: 

I 1. For CONTROLLED or BASED aggregates, 
I Phase NJ creates a library call to 
I IHESTRA, passing the following argu- 
ments through registers: 



Register 1 
Register 2 
Register 3 



A(D.V) 
A (DVD) 
A ( RESULT . RDV . SLOT ) 
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2. For CONTROLLED or EASED strings, the 

phase generates code to construct the 

RDV in the WORKSPACE storage of the 

statement, using the dope vector of 
the string. 



The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 

The EVENT scalar is taken from the EVENT 
option of the statement. 

The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 

The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
sary, they are converted to character 
strings. 

The PNTR is taken from the SET triple of 
the statement or from the BASED variable of 
the LOCATE triple if no SET triple appears. 



Phas e NM 

Phase NM generates the calling sequences 
to the Library modules for OPEN, CLOSE, 
GET, and PUT statements. 

For OPEN and CLOSE statements, a param- 
eter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as fol- 
lows: 

OPEN DC A(DCLCB) 

DC A(OCB) 

DC A(TITLE.SDV) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

DC A(KEYLENGTH) 

DC A(LINESIZE) 

DC A (PAGES I ZE) 

CLOSE DC A(DCLCB) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 



Null arguments are indicated by zero 
address constants. 

For GET and PUT statements, the Library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU) , and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined. 

The parameter list when a file is speci- 
fied is : 

DC A(DCLCE) 

DC A(next statement) 

DC A(binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is: 

DC A (SDV of string argument) 

DC A(DED of string argument) 

The termination Library call has no 
parameters. As for the initialization, the 
routine used depends on the options given 
in the statement. 



Phase NT 



This phase, which is a preprocessor for 
Phase NU, has two functions: 



Initialization of a block of 
storage for use by Phase NU 



scratch 



2. Setting up of INCLUDE matrix and 
Library routine entries for edit- 
directed, STREAM-oriented I/O 
statements 

The phase contains all pseudo-code skel- 
etons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 

If a flag has been passed from Phase N^J, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of Library modules are 
identified for the edit-directed' transmis- 
sion specified in the program. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required Library format- 
director routines. 
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Phase NU 



Data/format lists in I/O statements 
produce an internal Library calling 
sequence (see Appendix D.IO) for each data 
item and format item pair, using registers 
to point at the data item, the data item 
DED, and the FED for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 



The data items are 
with program flow goi 
data list, to the cor 
and then to the 
module. On return fr 
control goes to the c 
item or, in the c 
items, to another ite 



transmitted serially, 
ng from an item in the 
responding format item 
relevant Library I/O 
om the Library module, 
ode for the next data 
ase of repeated data 
ration of the DO loop. 



Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format statement 
will cause an object time error condition 
to be raised, and the execution to termi- 
nate. 



Phase OB 



Phase OB scans through the text for 
compiler functions and compiler pseudo- 
variables (see Appendix D.8). When a 
compiler function is found, pseudo-code is 
generated to access the operands of the 
compiler functions (e.g., string length, 
array bound) , and to place the operand in 
the location specified by the TMPD follow- 
ing the function. Assignments to compiler 
pseudo-variables are treated in reverse; 
the result from the TMPD following the 
assignment is stored in the array bound or 
string dope vector slot specified in the 
compiler pseudo- variable. 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 



the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 



Phase OD 



This phase contains the translate and 
test table used by SCAN, and other tables 
and constants for phase OE. A block of 
scratch core is obtained into which the 
[tables, routines, and constants are moved. 
A pointer to the beginning of this area is 
passed to OE in a register. 



Phase OE 

Phase OE translates the following tri- 
ples into pseudo-code: 

Assignment 

Multiple source assignment 

Multiple target assignment 

ALLOCATE, FREE, BUY, and SELL 

Special assignment 

In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

1. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 

5. CHARACTER String to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

6. BIT string to BIT string, if the 
operands are aligned and not more than 
2040 bits 

7. Label to label 

8. File constant to file parameter 

I 9. POINTER/OFFSET to POINTER/OFFSET 

I 10. FIXED CHARACTER String to VARYING 

I CHARACTER String and VARYING CHARACTER 

I string to VARYING CHARACTER string 

I provided that: 

I 1. The length of the source operand 
I is not greater than 256 bytes 
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2. The length of the target string is 
not greater than 256 bytes, if the 
maximum length of the source 
string is not known. 

3. For FIXED CHARACTER String to 
VARYING CHARACTER String the 
length of the FIXED string is not 
greater than 256 bytes. 

Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

After checking both AREA operands, AREA 
assignments are performed by the library. 

All other assignment triples are tran- 
slated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for process- 
ing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 

MULTIPLE ASSIGNMENT triples produce the 

same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE, EUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPECIAL ASSIGNMENT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 
TROLLED. The assignment is then translat- 
ed. 



Phase OG 



In-line conversion phases which are 
not required (OM and/or OP) are marked 
unwanted. 

IGN pseudo-code items and JMP triples 
are removed. The amount of temporary work- 
ing space required by each block of program 
is calculated and placed in the workspace 
dictionary entry (see Appendix C,7). 

The format of the text is converted so 
that a pseudo-code item does not span 
blocks . 

The INCLUDE card matrix is formed for 
all the conversion modules required. 



Phase OM 



Phase OM is called when either optimiza- 
tion levels 00 or 01 are specified. This 
phase scans the pseudo-code for the CNVC 
macros, which phase OG has placed into the 
text as 28-byte entries containing a trans- 
fer vector to select the appropriate con- 
version routine within OM, and replaces any 
such macros with in-line code. 

The conversions inserted by phase OM are 
controlled by phase OG. When OPT=0, cer- 
tain of the simpler FIXED DEC to PICTURE, 
PICTURE to FIXED DEC, and FIXED DEC to 
FIXED BIN conversions are passed to OM. 
When 0PT=1, the remainder of the feasible 
FIXED DEC to or from PICTURE and FIXED DEC 
to FIXED BIN conversions are passed to OM 
together with FIXED DEC to CHAR conver- 
sions. 

certain FIXED DEC to PICTURE conver- 
sions, which phase OG cannot itself effi- 
ciently detect to be uneconomic when per- 
formed in-line, are recognized by phase OM, 
which inserts the calls to the appropriate 
Library routines. 



Phase OG converts to pseudo-code all 
statement numbers, statement labels, PROCE- 
DURE, BEGIN, PROCEDURE', BEGIN', and end- 
of -program triples. 

The CONVERT pseudo-code macro is 
examined in conjunction with the OPTIMIZA- 
TION parameter and pseudo-code is generated 
in one of three forms: 



I Phase OP 



1 Phase OP generates in-line cede to per- 
form BINARY to BIT string, BIT string to 
BINARY, and FLOAT to FIXED BINARY conver- 
sions. 



1. Code to call the Library conversion 
package 

2. Code to perform the conversion 
"in-line" 

3. A modified CONV macro which is passed 
to phase OM or OF for processing. 



Phase OS 



Phase OS scans through the constant 
chain in the dictionary and converts the 
constants to the required internal form. 
These are then stored in a constants pool, 
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and the offset of each constant from the 
start of the pool is saved in the dictiona- 
ry entry for that constant. 



To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 



In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 



|Phase_PA 



I The purpose of phase PA is to determine 
I the eligibility of the automatic chains of 
I any block for STATIC DSAs. Any chain not 
I so far found to be ineligible for a STATIC 
JDSA is scanned to determine the DSA size. 
I STATIC DSAs are generated for any chains of 
I less than 512 bytes. 

I Dictionary entries are generated for 
I STATIC DSAs. This phase also acts as a 
I spill area for routines used in phases PD 
land PH. 



Phase PD 



A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 



THE STORAGE ALLOCATION LOGICAL PHASE 



The purpose of the Storage Allocation 
Phase is to ensure that every item requir- 
ing storage in a PL/I object program 
obtains a unique location of the correct 
size, located on the correct boundary. 
Items requiring storage include PL/I source 
program variables, dope vectors, dope vec- 
tor skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are allocat- 
ed to items in order of descending align- 
ment requirement to avoid wasting storage 
by padding to the required alignment. 

The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

Since all AUTOMATIC and CONTROLLED Stor- 
age is obtained dynamically at object time, 
the Storage Allocation Phase generates code 
to relocate dope vectors when the allocated 
storage address is known. 



Phase PD is the first 
allocation phase. It sc 
for every second file stat 
sets up a pointer in the 
tionary which points to 
statement. It then sorts 
so that the dictionary ent 
order in which the storag 
will be allocated. 



STATIC storage 

ans the text, and 

ement encountered 

associated dic- 

the second file 
the STATIC chain 
ries occur in the 
e for their items 



Storage is allocated for simple non- 
structured, non-external variables, RDVs, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 
I with the exception of EXTERNAL items. A 
I full word address slot is allocated in 
I STATIC for each STATIC DSA. 

The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 

The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are relo- 
cated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the comirunications region to 
the next phase. 



Phase PH 



Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 
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For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 

Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 

If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector . 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the OFFSETl slot of the 
dictionary entry. 

RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 



The section of the 
ing STATIC INTERNAL s 
Storage is allocated 
according to the si 
(computed by Phase JK) 
placed on the correct 
tion supplied by Pha 
member chain for each 



STATIC chain contain- 
tructures is scanned, 
for each structure 
ze of the structure 
, and this storage is 
boundary on informa- 
se JK. The structure 
structure is scanned 



and the relative offset of each member is 
relocated to the start of the STATIC INTER- 
NAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for INI- 
TIAL arrays. 



Phase PL 



Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, Structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 

when a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table dictiona- 
ry entry is created for the variable (see 
Appendix C.7), and a chain is set up to and 
from the dictionary entry for the variable. 
The new dictionary entry is joined onto the 
STATIC chain. 

The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 

All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 

When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default preci- 
sions only). 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of stor- 
age for any one type of standard DED. If 
the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information) , a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 
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When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 



Phase PP 



Phase PP extracts all ON condition 
entries and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 

The phase then extracts all dictionary 
entries which depend upon some other varia- 
ble in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 



Phase PT 



Phase PT allocates AUTOMATIC storage, 
scans the CONTROLLED chain, and determines 
the size of the largest dope vector. It 
scans the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 



I Two words are allowed for tasking infor- 
jmation in the DSA if the TASK option is on 
jthe external PROCEDURE of the compilation. 



The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

I Where there is a block with its DSA in 
I STATIC, dope vector initialization is not 
jperformed for the variables in the first 
I region of the AUTOMATIC chain. Address 
I slots in dope vectors for variables in the 
[remainder of the chain are relocated. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision vari- 
ables, CHARACTER Strings, and BIT strings, 
in that order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 
aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier. 



Phase_2F 



Phase QF, which constructs prologues, 
scans that text which is in pseudo-code 
form at this time with end-of-text block 
markers inserted. 
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When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 

1. The item is saved if it relates to a 
PROCEDURE statement 



2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions 



When a BEGIN statement 
standard prologue of simple 
ated, and code is inserted f 
statements (if there are 
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When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of paramet- 
ers on each entry point, and whether the 
PROCEDURE is a function. 

Prologue code is generated for AUTOMATIC 
scalar TASK, EVENT or AREA variables, in 
order to perform the initialization 
required when these variables are allocat- 
ed. 

The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Appendix D.7). 

DSA optimization is performed under 
certain conditions (see Appendix H) . 

At the end of the prologue, the state- 
ment label item saved earlier is inserted 
to mark the apparent entry point. Code is 
produced to effect linkage to BEGIN blocks 
in such a way that general register 15 
contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN epilo- 
gue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 



Phase_2J 



Phase QJ scans the text 
FREE, and BUY statements. 



for ALLOCATE, 



On finding an ALLOCATE statement, a 
routine is called which does a 'look ahead' 
for initialization statements associated 
with the allocated variable, e.g., adjusta- 
ble array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then extract- 
ed from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc. , is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

If the item has no adjustable paramet- 
ers, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 
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Code is inserted after the Library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

Any initial value statements associated 
with the ALLOCATE Statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. 
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The action on encountering a BUY state- 
ment is similar to that for the ALLOCATE 
statement, with the following exceptions: 

1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 



2. There is no initial value 
associated with temporaries 



code 



3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE state- 
ment is to generate code to load a paramet- 
er register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 



This phase comprises two physical phas- 
es, each with a specific function. The 
first, Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 



Phase RA 



Phase RA scans the text for dictionary 
references, the beginnings and ends of 
PROCEDURE and BEGIN blocks, and the start- 
ing points of the original PL/I statements. 

A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 



I J' Mse_2X 



Phase QX is the 'AGGREGATE LENGTH TABLE' 
printing phase. It is entered only if the 
ATR (attribute list) option is specified. 
It scans the STATIC, AUTOMATIC, CONTROLLED 
and COBOL chains, and, for each major 
structure or non-structured array that is 
found, an entry is printed in the AGGREGATE 
length table. 

An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of an 
aggregate with the CONTROLLED attrioute, no 
entry is printed for the DECLARE statement, 
but an entry is printed for each ALLOCATE 
for the aggregate, the source program ALLO- 
CATE statement number being printed in the 
'statement number' column. 

Where the aggregate length is not known 
at compilation the word "adjustable" is 
printed in the 'length in bytes' column. 
In the case of a DEFINED aggregate, the 
vrard 'DEFINED', and not the aggregate 
length, appears in the 'length in bytes ' 
column. 



If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
I in a 'step table^.' On completion, the 
table is scanned backwards to determine 
whether an intermediate result has been 
previously calculated. The steps which 
have not been previously calculated are 
then assembled into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
address, or if the reference itself is in 
the prologue. 

If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 



THE REGISTER ALLOCATION LOGICAL PHASE 



The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing miechanisras for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or required as base reg- 
isters. 



All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks respec- 
tively. 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the Library error 
package is generated, and the error marker 
removed. 
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If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement numoer slot 
in the current DSA up to date. 



Phase RF 



THE FINAL ASSEMBLY LOGICAL PHASE 



The Final Assembly Phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 



Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 

Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8. 



When a register is reque 
the contents of register 
determine whether the regis 
the required value. If 
used. If it does not, and 
assigned register, a sear 
free register and this is a 
is found. Should no reg 
look-ahead is performed to 
register it is most profita 



sted, a table of 
s is scanned, to 
ter already has 
it does, that is 
it is not an 
ch is made for a 
llocated if one 
ister be free, a 
determine which 
ble to free. 



If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is insured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 



Loader text is generate 
instructions, DECLARE control 
OPEN file control blocks, 
defined in the source progr 
lists, skeleton dope vec 
tables, etc. ESD and RLD ca 
ated for external names 
registers. An object listing 
generated by the compiler 
the option has been specified 
programmer . 



d for program 
blocks, and 
initial values 
am, parameter 
tors, symbol 
rds are gener- 
and pseudo- 

of the code 
is produced if 

by the source 



Phase TF 



Phase TF scans the text, assigns offsets 
to compiler and statement labels, and 
determines the code required for instruc- 
tions which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 



Phase TJ 



Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass . 

This phase also attempts to reduce the 
number of Kove (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 
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Phase TO (TQ) 



Phase TO sets the four byte slot ZPRNAM, 
in the cornmunication region, to contain the 
first four characters of the first entry 
label of the external procedure, for the 
purpose of object deck serialization. 



Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 

1. Program Control Section (CSECT) (SD 
type) allowing room for the compiler 

I subroutines if these are present. 

2. STATIC internal CSECT (SD type) 

3. Invocation count (PR type) 

4. Entry points to Library routines, 
IHESADA and IHESADB (ER type) 

I 5. IHEQERR (PR) 

I 6. IHEQTIC (PR) 

If the external procedure has the MAIN 

option, an entry for a one-word CSECT (SD 

I type) is made up. An entry is made for the 

I CSECT IH entry and entries are made up for 

all entry labels in the external procedure 

(LD type) . 

The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 

The external section of the STATIC chain 
is scanned and entries are made up for: 

1. Built-in functions and library func- 
tions (ER type) 



2. Files (ER type) 

3. STATIC external variables (SD type) 

4. External entry names (ER type) 



5. Programmer 
type) 



ON condition names (SD 



The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED varia- 
ble and task name (PR type). 

The size of the programi control section 
is incremented to include the compiler 
subroutines. 

All STATIC DSAs are put into the STATIC 
INTERNAL control section, their combined 
sizes being allowed for when the size of 
the CSECT is calculated. 



Module TQ is used to produce a list of 
Library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 



Phase TT 



Phase TT scans the text and maintains a 
location counter for assembled code. 

Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 

Nested procedures are unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the 
PROCEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. Phase TT 
also generates the text for the compiler 
subroutines. These subroutines are put out 
in one of the following combinations: 

1. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 
STATIC PROLOGUE subroutine 

2. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 

3. EPILOGUE subroutine 
STATIC PROLOGUE subroutine 



Phase UA 



Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static inter- 
nal CSECT and provides suitable comments. 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs, and DEDs for 
temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of rhe character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and Library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is m.ade up for the constants pool. 
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The third scan of the STATIC chain 
starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 

Phase UA makes up RLD cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 

Text cards are output to initialize all 
AREA'S, EVENT'S, and TASK'S. Arrays of 
AREA'S, will have a text card for each 
element. 



Phase UD 



I Phase UD generates RLD and TXT cards to 

I set up dope vectors at link-edit and load 

I time. 

I TXT cards are generated for each STATIC 

I DSA, containing its length, which is found 

I in the STATIC DSA entry. 

I TXT and RLD cards are generated to set 

I up the dope vectors for structured items 

I and any non-structured items appearing in 

I the AUTOMATIC chains. The TXT cards are 

I derived from the skeleton dope vector 

I entries. The RLD cards are generated for 

I each virtual origin slot. 

I When the last STATIC DSA has been proc- 

I essed control is released from phase UD. 



Phase UE 



Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 

The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 



The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 

Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
OBJNM parameter is present for batch compi- 
lation, phase UD punches a NAME card to 
follow the END card. 



I Phase UF (UH) 



Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. Ix. 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 

Phase UF contains module UH which gener- 
ates NAME from a dictionary reference. UF 
also lists the text for the compiler sud- 
routine. This is done by releasing UH and 
loading module UI which performs this func- 
tion. Upon termination of this phase 
module UI passes control to phase XA. 



THE ERROR EDITOR PHASE 



The Error Editor Phase is entered at the 
end of all compilations. The first phase, 
Phase XA, examines the dictionary and det- 
ermines whether there are any messages to 
be printed out. If there are none, this 
phase terminates the compilation. If there 
are diagnostic messages to be printed out, 
phase XB is loaded and the third section of 
the phase directory is com.pleted. Phase XC 
is then loaded and this together with phase 
XA causes further modules (XF, and blocks 
XG to YY) to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 



The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 



The third scan correspon 
the third scan in Phase UA, 
text for arrays, and simple 
structures. At the end 
test is made to determin 
external procedure of the 
MAIN option. If so, a 
(IHEMAIN) is made up, to 
address of the principal ent 
compilation. 



ds in extent to 
but generates 
and interleaved 
of this scan, a 
e whether the 
program has the 
one-word CSECT 
contain the 
ry point to the 



Phase XA 



Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, the phase 
loads module XE which completes the phase 
directory for Compiler Control. Phase XB 
is then released and phase XC and the 
message address block XF are loaded. 
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The error editor then scans down the 
error message chains and irarks each error 
dictionary with an indication of where the 
associated message is to be found. This 
information is obtained from a table in 
module XF. 



The text of all 
in modules XG thro 
ojrdered, by severi 
Module XA will 
which contain mess 
ticular compilati 
releases these mod 
extracts the req 
loaded a particula 
down the associate 
the dictionary for 
with the module, 
message text and s 



error messages is ^ kept 
ugh YY. The messages are 
ty, within these modules, 
have listed those modules 
ages required for a par- 
on. Module XC loads and 
ules, one at a time, and 
uired messages. Having 
r module, the phase scans 
d error message chain in 

error entries associated 
It accesses the error 
cans it. 



The message 
a print buffer 
This involves 
mode, which is 
skeleton. Th 
insertion of a 
tifier, or a 
the message di 
is segmented, 
spilling over 
external code. 



to be printed is built up in 

in internal compiler code. 
a translation from EBCDIC 

used for the message text 
e message is completed by the 

statement number, an iden- 

numeric value as specified by 

ctionary entry. The message 

where necessary, to avoid 

a print line, translated to 

and finally printed out. 



When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 
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SECTION 3: CHARTS AND ROUTINE DIRECTORIES 



This section provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and rou- 
tine directories, arranged in phase order. 



Flowcharts 

The flowcharts are presented at three 
levels of detail — overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 09) , 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 

Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows: 

1. Where the means of transfer is a trans- 
fer vector, an asterisk is shown as the 
label on the flowchart, and a note at 
the foot of the chart states that the 
transfer vector table is located at the 
start of the module. 

2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 

With the exception of "fall-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 

In some cases, additional labels have 
been given, to assist in following the 
program flow. 



Tables and Routine Directories 



For each 
provided, w 
formed and 
subroutines 
routine dire 
provides an 
of the routi 
in the phase 



physical phase, 
hich lists the op 
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involved. Where 
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alphanumerically 
nes and subroutin 
, and states their 



a table is 
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routines and 
applicable, a 
table. This 
arranged list 
es contained 

function. 



In some cases, a physical phase compris- 
es more than one module; this means that 
routines contained in different modules may 
be listed together in one routine direct- 
ory. To assist in cross-reference to the 
compiler listings, the following convention 
has been adopted: if a routine is contained 
in a module whose label is not identical to 
that of the phase under discussion, the 
label of the containing module is inserted 
in parentheses after the routine name in 
the directory. 



In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direct- 
ory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 



Chart ,.and_Table Identification 

Identification of tables and physical 
phase flowcharts is based on the phase 
label. 
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Chart 00. Overall compiler Flowchart 
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Chart 00. Overall Corrpiler Flowchart (cont'd) 
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:hart AA. Resiient Control Phase Logic Diagram (Modules AA through AM, ard JZ) 
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* ONE OF THf PHY-* 

* SICAL PHASES * 

* DESCRfRFD IN * 
*FOLLnHMG CHRTSI* 



*****F 5* ********* 

* IFMXX ♦ 
*-*-*-*-*-*-*-*-* 

* CALL A » 
*CnMPILER PHASE ♦ 

* ♦ 
***************** 



.* END *. YES 

*.0F FIRST HALF.*..,. 
*PHASF LIST.* 



*****(;2 ********** 

* EXECUTE * 

* lEMAG TO * 
>X* TIDY UP AFTFR * 

* READ- IN * 

* * 
•*••*•*•********* 



*****H2 ********** 

* EXECUTE ♦ 

* IFMJZ TO * 

. X* BUILD Second * 

* HALF PHASE * 

* DIRECTORY * 

***************** 



*>li«**(;4********** 





* HAS *. YES 


* RELEASE • 


* * 


.....r.oX* 


lEMAC .♦ 


.,.X* lEMAC *.o 


».X* E"! * 




♦ . LOADED .* 


* * 






*. •* 


* * 


**** 




*. . * 


***************** 






* NO 








**** 


«*** 






. * * 


* * 






..X* E5 * 


* HA «... 






* * 


* * • 






**** 


**** , 






.*. 


ZEND X 






H3 *■ 


*«***H4********** 






.* HAS *o 


* CLOSE DATA • 

* SETS. TIOYUP * 

.-oX*PICKUP SEVERITY*,. 






*TH£RE BEEN *. YES 
A TERMINAL .* 




cX*. 


„ 


X 


*. ERROR .* 


* CODE * 


Q 




*. . * 


* * 




^ 


*. .* 


***************** 


p 


**** 


* NO 




„ 


* * 


, **** 






* H3 • 


. * * 




3 


* * 


..X* J5 * 




„ 


**«* 


**** 




" 



.* HAS ♦. YES 
*. RETURN TO .*.... 
*. ZEND .* 



***««j2 ********** 
* LOAD CLOSING * 
MODUL" ■ 



**************** 



.♦ ANY *, 
. * MORE < 

. ., X*. COMPILATIONS 
*. IN BATCH .* 



*«***ji^*** ******* 

* « 

* * 

* RELEASE AK *« 

* * 

* * 
*******•*•*••*•** 



*****j;********** 

* CLOSt: SYSUTl ♦ 

* SCAN BATCH * 
,* DELIMITER * 

* RECORD FDR * 

* SYNTAX ERRORS * 
***************** 



«***K4* ******** 

* RETURN • 
► TO CALL ING • 

* PROGRAM * 
*************** 
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Table AA. Module AA Compiler Control Resident Control Phase 

r T 



I- 



Stateitient or Operation Type 



Mam Processing 
Routine 



+- 



Routine Called 



Initializes the compiler 

Para me ters pa ssed; General register 1 points at 

the passed parameters 

Entry to OS/360; GETMAIN(R), TIME, LINK, SPIE 



ZINIT 



LOADW, ABORT 



+- 



Deletes a list of loaded phases 

Para meters passed; PARI -- address of list of 
phases to be deleted 
Entr y to OS/360 ; DELETE 



RELESE 



ZUERR, ABORT 



Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Paramet ers passed; PARI — address of list of 

phases to be deleted; PAR2 — address of name 

of phase to which control is to be given, or 

zero 

Parameters returned; PARI — load point of new 

phase 

Entry to OS/360; DELETE, LOAD(EPLOC), LOAD(DE), 

LINK 



RLSCTL 



Module AD if inter- 
phase dumping is req- 
uired; Module AE if it 
is end of Read-In 
Phase; ZUERR, ABORT 



+- 



Loads the required phase and returns control to 
the caller. The phase may be loaded again 

Parameters passed; PARI -- address of name of 



LOADX 



phase to be loaded 

Parameters retu rned; PARI — load point of 

phase 

Entry to OS/360; LOADCDE) 



ZUERR, ABORT 



4- 



Marks phases as 'wanted' and 'not wanted' 
Parameters passed; PARI -- address of 



REQEST 



list of phase names to be marked 'wanted;' 
PAR2 — address of list of phase names to be 
marked 'not wanted' 
Entry to OS/360; None 



ZUERR, ABORT 



Puts a record out to SYSLIN 



Parame ters pass ed; PARI — address of output 



ZULF 



record 

Entry to OS/360; PUT LOCATE (QSAM) 



LFERRX 



Puts a record out to SYSPUNCH 

Para me ters pas sed; PARI -- address of output 



ZUSP 



record 

En t rY_ t o_0S / 3a ; PUT LOCATE (QSAM) 



SPERRX 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 
r 



Statement or Operation Type 



T T 

Main Processing 
Routine 



+■ 



Routine Called 



Deletes currently loaded phases and passes 
control to the Error Editor 

Entry to OS/360; LOAD(EPLOC) if dump option 



Z ABORT, ABORT 



specified 



Module AD if dump op- 
tion specified; RLSCTL 



Picks up completion code and returns control to 
the program that called compiler 



ZEND 



Entry to OS/360; TIME, FREEMAIN, DELETE 



ZUPL 



Handles all program checks 

Par ameters passed; ARINT holds address of 
routine wanting to handle interrupt. ARMASK 
holds mask indicating which interrupts it is 
desired to handle 

Entry to OS /36Q: None 



PIH 



ZUERR 



Table AAl,. Module AA Routine/Subroutine Directory 



r ■ — T" 

I Routine/Subroutine | 



Function 



ABORT IDeletes currently loaded phases, passes control to error editor. 

BLKERR I Enters message "REFERENCED BLOCK NOT IN USE", then terminates compi- 

lation. 

CONSLD I Takes dictionary reference and points at relevant slot in dictionary 

control block area (DSLOTS) . 

CONSLT I Takes text reference and points at relevant slot in text block con- 

trol area (TSLOTS) . 

DFREE I Finds dictionary block which can be written on disk to make room for 

a new block in storage. 

LFERRX I Marks error on SYSLIN data set. 

LOADX I Loads required phase and returns control to caller. The phase may 

be loaded again. 

LOADW I Loads required phase and returns control to caller. 

PIH I Handles all program checks. 

PLERRX I Prints record on SYSPRINT data set. Pagination (paging action) is 

performed automatically. 

RDERRX I Marks error on SYSIN data set. 

READX I Reads a block from disk. 

RELESE I Releases all loaded phases. 

REQEST I Marks phases as 'wanted' or 'not wanted. ' 

RLSCTL I Releases all loaded phases and passes control to next required or 

named phase. 
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Table AAl. Module AA Routine/Subroutine Directory (cont'd) 

Function 



r T- 

j Routine/Subroutine | 



^ + 

Marks error on SYSPUNCH data set. 

Deletes currently loaded phases and passes control to error editor. 



SPERRX 
ZABORT 
ZEND 

ZINIT 

ZULF 

ZUSP 



Picks up the completion code for the compilation and returns control 
to ZINT to continue the batch, or to the operating systeir at the end 
of a single or batch compilation. 

Initializes the compiler. 

Puts record out to SYSLIN data set. 

Puts record on to SYSPUNCH data set. 



L JL 1 
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•Table AB. Module AB Compiler Control Initialization 

I T T 

Main Processing 
Statement or Operation Type | Routine 



Routine Called 



Issues a BLDL macro instruction on all phases 
in compiler, and constructs a compacted phase 
dictionary 



Entry to OS/360; BLDL 



PROPEN 



+- 



None 



Prints initial heading and performs scan of 
option list. Default options are taken where 
necessary 



Parameters passed; General register 1 points to 
option list passed at invocation time 
Entry to OS/360; TIME, PUT LOCATE (QSAM) 



OPTPROC 



+- 



None 



Makes the initial space allocation for text and 
dictionary blocks. Sets up communication 
region 

Entry to QS/360 : GETMAIN ( R ) 



OPENR 



+ - 



None 



Opens spill file if text and dictionary blocks 
are IK 

Entry to OS/360 : OPEN 



OPENSP 



None 



4- 



Obtains the guaranteed UK of scratch storage 
Entr;y_to_0S/3 60 : GETMAIN (R ) 



GETSCR 



■+- 



None 



Loads intermediate file writer (Module AC) . 
Sets buffer sizes for SYSUT3 and opens the data 
set 

Entry to QS/360; LOADCEPIOC), OPEN 



NODUMP 



ZUPL (AA) 



■+- 



Prints out list of options for this compilation 
Entry to OS/3 60 : None 



NDMP 



■ + 



ZUPL (AA) 



•+ 



Enters error messages generated when SYSIN, 
SYSPRINT opened 

is t r Y_t o_0S / 3 6 : None 



PJ13 



ZUERR (AA) 



Reads first card and stores. Uses as heading 
if required 



RDCD 



ZURD, ZUERR, ZUPL 
(all in AA) 



Return to pre-initializer in lEMAA 



ABOUT 



None 



Opens SYSPUNCH if MACDCK Specified 
Ent ry to OS/360 : OPEN 



MCD 



ZUERR 



Loads dictionary handling control routines 
(phase lEMAN or lEMAL depending on normal dic- 
tionary or extended dictionary being specified 
in the options) 

Entry to OS/360 : LOAD 



LODCNTL 



None 
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Table ABl. Module AB Routine/Subroutine Directory 



r T" 

j Routine/Subroutine | 



Function 



^ + ^ 

ABOUT I Returns control to pre-initializer in Module AA. 

GETSCR I Obtains scratch storage. 

NDMP I Prints lists of options for current compilation. 

NODUMP I Loads intermediate file writer module AC. Sets buffer sizes for 

|SYSUT3 and opens data set. 

OPENR I Makes initial space allocation for text and dictionary blocks. Sets 

I up communications region. 

OPENSP jopens spill file. 

OPTPROC I Prints initial heading and performs scan of option list. 

PJ13 [Enters diagnostic messages generated v/hen SYSIN and SYSPRINT data 

I sets are opened. 

PROPEN j Issues BLDL macro instruction and constructs phase directory. 

RDCD I Reads first card. 

L X J 



Table AC. Module AC Compiler Control Intermediate File Control 
r 



^ J 

Main Processing 

Routine 

+ 



Statement or Operation Type 



Routine Called 



Writes a record onto SYSUT3 



Parame ters pass ed; PARI -- address of output 



lEMAC 



record; PAR2 — length of record 
Ent rY_ t o_0S/3 6 : PUT LOCATE (QSAM) 



■ + ■ 



None 



Link to file switching routine (Module AG) 
Entry to OS/360: LINK 



ENDED 



None 



Table AD. Module AD Compiler Control Interphase Dumping 



•T T" 

|Main Processing! 
j Routine j 



Statement or Operation Type 



I 

h 

I Debugging aids. This routine contains a dump- | lEMAD 
jing program which is invoked by use of the DUMP j 
I option I 

L .^ J.. 



Routine Used 



IZDRFAE, ZTXTAB, ZUPL | 

I (all in AA) , | 

jDUMP I 

.J. J 



Table ADl. Module AD Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



, + ^ 

DUMP I Converts contents of specified area of main storage to hexadecimal, | 

I prints the result. j 

.X J 
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Table AE. Module AE Compiler Control Clean-Up Phase 



■T T 

I Main Processing 
Routine 



Statement or Operation Type 



■+- 



+- 



Routine Called 



Input and intermediate file control. Current | I EM AC 
input file is closed and lEMAC is deleted if | (Module AC) 
present | 

I 

Entry to OS/360; CLOSE (current input file), | 
DELETE 



None 



■+- 



Opens SYSLIN and SYSPUNCH data sets if required | NOT48 

I 

Entry to OS/360; OPEN 



■+- 



ZUERR (AA) 



Expands the number of blocks in storage to four|NOTDCK 
text and four dictionary, if running with the | 
44k size option | 

I 

Ent ry to OS/360; GETMAIN | 



None 



Table AEl. Module AE Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



.+ 

I Opens SYSLIN and SYSPUNCH data sets as required, 

I 

[Expands number of blocks in storage. 



NOT4 8 
NOT DC K 



Table AF. Module AF Compiler Control Sysgen Options 
r 



Function 



Subroutines 



F- 



-+- 



I This module contains no executable instructions. It is | None 
(generated at SYSGEN time and passes the default options j 
I and values to the compiler | 

L J. 



Table AG. Module AG Compiler Control Intermediate File Switching 

r T 



Function 



Subroutines 



|. 

I Switches SYSUT3 from an output file to an input file 

I 

[Entries to OS/360; OPEN and CLOSE 

L ~ . 



4 

I None 



Table AK. Module AK Compiler Control Closing Phase 



Function 



Subroutines 



|. . „ „ 1 ^ 

1 Closes files, frees scratch core and deletes unwanted |ZURC(AA) I 

phases 

If batch compiling, scans batch delimiter card for correct, 
syntax and updates completion code. 

Entries to OS/360; TIME,, CLOSE, FREEPOOL, DELETE, and 
FREEMAIN 

L .^ J. J 
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• Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases 

r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



Routine Called 



Releases scratch storage allocated by ZUGC 

Parameters passed; PARI -- a count of the 
number of entries to ZUGC to be released 
Entry to_ OS/_360: FREEMAIN if storage being 
replaced is outside the guaranteed 4k block 



ZURC 



ZUERR, ABORT 



+- 



Inserts diagnostic message in the dictionary 

Parameters passed: PARS — numeric parameter 
(if any); PAR6 — message number; PAR7 -- add- 
ress of text (if any) or dictionary reference 
(if any); PARS — length of text (if any) 
E n t r Y_ t o_g S / 3 6 : None 



ZUERR 



+- 



ZDRFAE, ZDICRF, ZDICAB 



+- 



Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

P^^^ni^ t e r s_pa s s ed : PARI — dictionary ref- 
erence 

Parameters returned; Address of slot in GRA 
Entry t o QS/ 360 ; None 



CONSLD 



None 



Takes a text reference and points at the rele- 
vant slot in the text block control area 
(TSLOTS) 

Parameters passed; PARI -- text reference 
P^£§21^ t^£^_£^iI^£D§^ * Address of slot in GRA 
Entry to QS/360 : None 



CONSLT 



■+■ 



Allocates space for a text block 

Parameters passed; Relative track address of 

the block (if block is on disk) in RDTTR. 

Otherwise RDTTR is zero 

Parameters returned; Address of block in GRO 

Entry to OS/360; GETMAIN(VC) if storage 

available. OPEN if no space left for text 

blocks 



TRYMRT 



DFREE, TFREE, ZUPL, 
AEORT 



Allocates space for a dictionary block 

Parameters _ passed; Relative track address of 
block (if block is on disk) in RDTTR. Other- 
wise RDTTR is zero 

Parameters returned ; Address of block in GRO 
Entry to OS/360; GETMAIN(VC) if storage 
available. Open if no space left for diction- 
ary blocks 



TRYMRD 



DFREE, TFREE, ZUPL, 
ABORT 



Investigates the dictionary block control used 
(DSLOTS) , to find which block can be written on 
to disk to make space for a different block in 
storage 

garameters pa ssed; Relative track address of 

block required in storage in RDTTR. RDTTK=0 

if a block is being created 

Parameters returned; Address of block in 

storage in BLOKAD 

Entry to OS/360 ; None 



DFREE 



CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, VvDWRIT 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 



Statement or Operation Type 



T T 

Main Processing 
Routine 



+- 



+- 



Routine Called 



Investigates the text block control area 
(TSL0T3) , to find which block can oe written 
onto disk to make space for a different block 
in storage 

Parameters passed; Relative track address 
block required in storage in RDTTR. RDTTR-0 
if a block is being created 
P §:£^II! s^^e r s _r e t u rn e d : T F R E E 
Entry to 03/3 60; None 



TFREE 



CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 



Create space in storage by writing on disk 

Parameters passed; RDTTR=0, BLOKAD contains 
address of block that can be written out 
Parameters_returned ; BLOKAD contains address 
of block in storage that is now available 
Entry to OS/36(); WRITE (BSAM), CHECK, NONE 



WDWRIT 



WRITEX 



Writes a block onto disk and reads a second one 
into its place in storage 

Parameters passed; RDTTR contains relative 
track address of block to be read. BLOKAD 
contains address of block to be written 
Parameters^ returned; NOTTR contains relative 
track address of block in storage 
Entry to OS/360; WRITE (ESAM), CHECK, NOTE 



WRTRD 



READX, WRITEX, ZUERR, 
ABORT 



Reads a block from disk into space already 
available in storage 

Parameters passed; RDTTR holds relative track 

address of block to be read. BLOKAD holds 

address of space in storage 

Parameters returned; BLOKAD holds address of 

block in storage 

Entry to OS/360 ; None 



WDREAD 



READX 



Writes a block onto disk 

Parameters passed; TEMP4 holds relative track 

address of space on disk 

Entry to OS/360 ; XDAD ( WI ) , WAIT 



WRITEX 



ZUPL, ZEND 



Reads a block from disk 

Parameters passed ; TEMPU holds relative track 
address of block on disk 

Parameters returned ; PARI — address of input 

area 

Parameter s returned ; PAR2 — record length 

En t rY_ to_gS/ 3 6 : GET MOVE (QSAM) 



READX 



ZUPL, ZEND 



■ + 



Reads a record from SYS IN 

Parameters passed; PARI — address of input. 

area 

Paramete rs ret urned; PAR2 — record length 

Ent rY_to_0S/3 6 ; GET MOVE (QSAM) 



ZURD 



None 



Section 3: Charts and Routine Directories 



77 



Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 



Statement or Operation Type 



T T 

Main Processing 
Routine 



+- 



+- 



Routine Called 



Puts a record out to SYSPRINT. Pagination 
(paging action) is perforiTied autortiatically 

Parameters passed; PARI -- address of output 
buffer. PAR3 -- address of output buffer 
containing page heading (if any) 
Entry to OS/360: PUT LOCATE (QSAM) 



ZUPL 



PLERRX 



Finds a new text block. Optionally chains the 
new block to the current block and changes the 
status of the current block 

Parameters passed; PARI — optionally, a 

reference to the current block. PAR2 — a 

status and chain indicator 

Paramete rs returned; PARI -- reference to new 

block; PAR2 -- absolute address of the 

beginning of block 

Entry to OS/360 ; None 



ZUTXTC 



CONSLT, TRYMRT, ZUERR, 
ABORT, BLKERR 



+- 



Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 

Parameters passed; PARI -- a reference to the 
current block; PAR2 — a status indicator 
Parameters returned; PARI — reference of the 
next block in the chain. PAR2 -- absolute 
address of next block in chain 
Entry to OS/360 ; None 



ZCHAIN 



CONSLT, TRYMRT, BLKERR 



+- 



Changes the status of the referenced text block 

Parameters passed; PARI -- a reference to the 
block. PAR2 +3 — required 'status' byte 
Entry to OS/360 ; None 



ZALTER 



CONSLT, BLKERR 



+- 



Converts a text reference to an absolute 
address and optionally, does not change status 
of the block 

Parameters __passed; PARI -- reference to be 

converted and option indicator bit 

Parameters returned; PARI -- the absolute 

address 

En t r y_ to_OS/ 3 6 ; None 



ZTXTAB 



CONSLT, TRYMRT, BLKERR 



Converts an absolute address to a text 
reference 

Parameters passed; PARI -- a text reference to 

the block containing the absolute address; 

PAR2 — the address to be converted 

Par ameters returned; PARI — the required text 

reference 

Entry to OS/360 ; None 



ZTXTRF 



■+- 



CONSLT, BLKERR, ZUERR, 
ABORT 



Enters message 'REFERENCED BLOCK NOT IN USE' 
into dictionary and then terminates compilation 
Entry to OS/360; None 



BLKERR 



ZUERR, ABORT 



Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 



Statement or Operation Type 



T T- 

Main Processing 

Routine 
+- 



Routine Calles 



Supplies storage space for scratch purposes. 

Allocation is made in 512 bytes at a time 
Parameters_ passed; PARI — a count of the 
number of 512 byte blocks required 
Paramet ers returned; PARI -- address of the 
allocated storage 
En trij[_ t o_0 S/ 3 6 ; None 



ZUGC 



TRYMRT, ZUERR, ABORT 



Converts an absolute address to a dictionary 

reference 
Parameters passed; PARI — any reference to 
the block containing the absolute address; 
PAR2 — the absolute address to be converted 
Parameters returned ; PARI — the required 
dictionary reference 
Entry to OS/360; None 



ZDABRF 



CCNSLD, ZUERR, ABORT, 
BLKERR 



+- 



Converts a dictionary reference to an absolute 
address 

Parameters passed; PARI -- the dictionary 

reference 

Parameters returned; PARI — the absolute 

address 

E n t ry _ t o_0 S / 3 6 ; None 



ZDRFAB 



CONSLD, TRYMRD, BLKERR 



Makes an unaligned dictionary entry and 
returns an absolute addiress 

Parameters pas se d; PARI -- address of entry to 

be made; PAR2 -- length of entry 

Parameters returned; PARI — address of entry 

in dictionary. PAR4 -- some reference to the 

block 

Entry to OS/360 ; None 



ZNALAE 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



+- 



Makes an aligned dictionary entry and returns 
an absolute address 

Parameters passed; PARI -- address of entry to 

be made; PAR2 — length of entry 

Parameters returned; PARI — address of entry 

in dictionary. PARU -- some reference to the 

block 

Entry to OS/360 ; None 



ZDICAB 



■ + - 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CCNSLD 



■+- 



Makes an unaligned dictionary entry and 
returns dictionary reference 

Parameters passed; PARI -- address of entry to 

be made; PAR2 — length of entry 

Parameters returned; PARI — reference of 

entry in dictionary, PARU — absolute address 

of the entry 

Entry to OS/360; None 



ZNALRF 



■ + 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



Makes an aligned dictionary entry and returns a 
dictionary reference 

Parameters passed; PARI — address of entry to 

be made; PAR2 — length of entry 

Parameters returned; PARI -- reference of 

entry in dictionary. PAR4 — absolute address 

of the entry 

Entry to OS/360 ; None 



ZDICRF 



ZDRFAE, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CCNSLD 



L._. 
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•Table ALl/ANl. Modules AL/AN Routine/Subroutine Directory 

Function 



r T- 

I Routine/Subroutine | 



h 



■+■ 



TFREE 

TRYMRD 
TRYMRT 
WDREAD 
WDWRIT 

WRITEX 
WRTONL 
WRTRD 

ZALTER 
ZCHAIN 
ZDABRF 

ZDRFAB 

ZDICAB 

ZDICRF 

ZNALRF 

ZNALAB 

ZTXTAB 

ZTXTRF 

ZUERR 

ZURD 

ZUGC 

ZURC 

ZUPL 

ZUTXTC 



Finds text block which can be written on disk 
to make space for a new block in storage. 

Allocates space for a dictionary block. 

Allocates space for a text block. 

Reads a block from disk into storage. 

Creates space in storage by writing a block on 
disk. 

Writes a block on disk. 

Writes on last block on disk. 

Writes a block onto disk, reads a second one 
into its place in storage. 

Changes status of referenced text block. 

Finds next text block in chain. 

Converts an absolute address to a dictionary 
reference. 

Converts a dictionary reference to an absolute 
address. 

Makes an aligned dictionary entry and returns 
absolute address. 

Makes an aligned dictionary entry and returns 
dictionary reference. 

Makes unaligned dictionary entry and returns 
dictionary reference. 

Makes unaligned dictionary entry and returns 
absolute address. 

Converts text reference to an absolute address. 

Converts absolute address to a text reference. 

Inserts diagnostic message in dictionary. 

Reads a record from SYSIN. 

Supplies storage space for scratch purposes. 

Releases scratch storage. 

Puts record out to SYSPRINT data set. 

Obtains a new text block. 
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Table AM. Module AM Compiler Control Phase Marking 

r ■ T T ■ 1 

I |Main ProcessingI | 

I Function | Routine j Routines Used | 

|. „ — _+ 1 _ ^ 

[Marks all non-optional phases and |IEMAM jREQEST, RLSCTL (both in AA) | 

jail phases influenced by compiler | | | 

I invocation-time options | j | 

L ± ± J 
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****««*•***«••••* 



CflUNTE 



* 01 AGNOSTIC RN« 

• DIAGNOSTIC * 
•MESSAGE CONTROL^ 

• PHASi • 



•***«G2 •*••••*••• 



««***H2 •••*••***• 
•CLEAN-UP W* 

•-•-*-«-*-*-*-4i-^ 

• RE-INITIALIZE • 

• COMM. REGTON • 

• AND TARLES « 



•n? • 
• Al« 
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Chart ?\S. Phase AS Overall Log-ic Diagram 



•**«A2 ********* 
* ENTRY * 

► F ROM * 

► PHASE AA « 



ADRP 

«*«**B2********** 

* PHASE AV * 
*-*-«-*-«-*-«-*-* 

* INITIALIZE *. 
» POINTERS AND * 

* SWITCHES * 



***** 
*AV * 
* A2* 



*****C2* 

"HAS I 

.*_: 

LOAl 
ST Oft! 



•-*-*-*-•-*-*-* 

.OAO * 

PHASE BC INTO * 

STORAGE ♦ 

**«•****«*•*«**** 



•*««*n2 ********** 

* * 

* USE PHASE BC * 

* TO PROCESS * 

* 'INPUT* TEXT * 

* * 
***************** 



«****E 2**** ****** 

* * 

* TURN ♦ 

* INCLUDE-SM * 

* OFF * 

* * 
***************** 



LOAOW X 

*****f:2 ********** 
* PHASE BG * 



***************** 



*«***G2 ********** 



*******ili«****«*** 



.* IS *. YES, 

*. JNCLyOE-SW ,*. 



^^^ 



•j7a** 
RFTUR 
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Chart AV . Phase AV Overall Logic Diagram 



***** 

*AV * 
* A2* 



* * • c.RF«TE INPUT • 

* INITIALIZE * ♦ AND nUTPUT * 
♦COMMUNICATIONS «,.....,.X* BUFFERS IN * 

* RFC ION ♦ *SCRATCH STORAGF* 

* * « * 
••***•«*****«•««« ***************** 



***«»B 3* ********* 

* * 

* MOVF TOKSCN * 

* TABLE INTfl * 
•SCRATCH STORAGE* 

* * 
«*•***«*••***•««* 



» ALLOCATE POS • 

* IN SCRATCH ♦ 

* STORAGE • 

* * 
«*••**•«•*«••••** 



*****01********** 

* SET UP nCB'S * 

• AND BUFFER * 
» ARFA FOR ySFI • 



*••••**•*••*«*••• 



•****p 3 ••*****«** 

♦ SFT UP • 

♦ KFVWORn TABLE ♦ 

♦ IN SCRATCM • 

♦ STORAGE ♦ 

♦ « 
*•••••••***•*«•** 



* SFT UP TABLES * 

* TO TRANSLATE * 

* EKTFRN4L CODi= * 

* TO EBCniC ♦ 

**•****•••*•***** 



HHIBCn X 

*****c,%********** 

* MAKF • 

* nicTinNARV • 

*ENTRV FOR BUILT* 

* IN FUNCTION • 

* SUBSTR * 

«•«***•**•******• 



*****H 3 ********** 

* SFT UP TEXT * 

* BLPCKS FOR • 
•npQCFnURF TFXT * 

* ANO IVP'S * 

* * 
***••*****•**••*• 



KkCHNBFG X 

*****J 3 •••*•*•**• 

♦ CREATC • 

* niFTIONARV • 
FNTRIFS FOR 



*****)( 3 ********** *****K4********** 

* * * * 

* CRFATE IVB'S * * SPT i)0 BASIS * 

* F'l" VALUFS TPilF*^,,..., -X* FOP UNnEFlN^D * 

* ANH FALSf * ♦ TNTRv CHAIMS * 

* ♦ * * 
*>!t««*«********«*« *****«««««****«** 



^^ 



Chart BC. Phase BC Overall Logic Diagram 



***** 

*BC ♦ 

* A3* 



*****A3********** 



«•**••••*•*•«**«* 



B3 *. 
• * *i 

.♦ IS *. YES 

*. INCLUDE-SH .*..., 
*. ON .* 

*• •* 

*• •* 
* NO 
**•* , 

* * • 

* C3 *.X. 



•*«* . 
FINDPC X 

*****C 3 *•*•*•**** 

* PUT CHARS • 

* INTO TEXT * 

* BLOCKS UNTIL * 
•HIT NEXT MACRO ♦ 

* STATEHENT * 
**••*•*•**««***** 



*****B4*«******** 

* SET UP SPECIAL * 
It* EXIT LABEL • 

* IN OICT. * 

* • 
*****•****•«•**** 



***************** 



-.aiip 



* YES 



****« El *******••* 



rs IT 

lOCEOUP 



*. INCLUOE-SH 



*. Na 



*****Ei^*«****«*** 

* PUT ♦ 

* END-OF-TEXT * 
<* CODE INTO * 



«**••*********•** 



*«*••****«******* 



L1A3 

«**«*F:2********** 

* PROCESS « 

* LABELS ♦ 

* ATTACHEO TO ♦ 

* STATEMENT * 

* * 
*«**•***«•*****•* 



HEAP 

«***«G2 ********** 

♦ ENCnOE STMNT * 
•-*-*-♦-*-*-*-*-• 

♦ USES AND TESTS * 

* A PUSH DOWN * 

* STACK ♦ 
***************** 



«****F:3********** 
• ADO CODE * 

*TQ CALL CLEANUP* 



••***«**««*•*•*«* 



***************** 



***** 
*BG * 
* B3* 



***** 

♦ BG * 

♦ B3* 



H2 ♦, *****H3********* 

. * *• * 

.* HAS IT *. YES * TURN 
*. THE END FOR .*...,,.., X* PROC SW OFF 

*. PROC .* ♦ 

*, c* * 

*, ,* **************** 



«*** 

* * 

* D2 *X. 

* * 
**** 



>.x. 

X 
**** 

* * 

* C3 * 

* ♦ 
**** 
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Chart BG. Phase BG Overall Logic Diagram 



» END OF TEXT 



••**•*••*****«*** 



, * 




*, 




IS 






*, 


LEV-BIT 





, 








* 


*. 




• 




*• < 


* 






* 


VES 





♦ RETURN • 
» TO CALLER • 

• » 



**«**G1 ••***•**** 



***•••***•••**••• 



STACK TOP 

• THEN POP • 

♦ STACK * 



«BG * 
• B3* 



PH2SCN 

♦ GET NEXT TOKEN 



»IS*£** 



IT .• 
,« 



IDENTIFIER • 

« 
* 



ACTIVATED .« 



****«*******«***4[ 



E3 



*. 



DAPENT X 

«****H2********** 

* 00 * 

♦ REPLACEtlENT • 

* ON ARGS. GET * 

• VALUE FOrt • 



**4>«*j 2* *•*••*•** 



«••••*••«*••«•*•* 



NO •• IS ♦. 

...*. ACTION CALL .« 
*. CLEANUP .* 



*, 



YES 



* CALL CLEANUP * 

* THROW AWAY • 

• INCLUDED TEXT • 

• SET TDK-PTR * 



MTPRT 

*mm*»n'i ********** 
* INTERPRET ♦ 



**•********•*«*•* 



<.« WAS *. NO 

*„ IT INCLUDE .*... 

*• • * 



«*****••««***•*** 



*»***Btt********** 

* * 

* OUTPUTS TOKEN ♦ 

* * 



* PERCENT SIGN 



*•**••***••*••••« 



***** 
*>\H * 
* Al* 



•**««K2*«******** 

* * 

..» LEV-BIT • 1 • 

* * 

* • 



• 4i««*K 3 •****•**•* 



«*«••*•****•***«« 
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Chart BM. Phase BM Overall Log4-c Diagram 



*BM ♦ 
* Al* 



*****A1 ********** 



* SEVERITV CODE • X* 






*«****•**•]»«*«*** 



4i***4>********«*** 



• *• 
B2 *. 
.* ANV *. 
* ENTRIES *. NO 


XA2 

* PUT OUT * 




♦ .PROCESSEO. ♦ 

'♦. .** 

* 


************* 


X 
***** 
• BW • 
*. Al* 



**«**C1 •**•***•** 

* LOAD * 

* HESSAGE * 

* ADDRESS *. 

* BLOCK • 

* * 



«****C2 ********** 



SCAN 
MESSAGE 
CHAINS 



*****C 3«**«««*4i«« 



***************** 



***************** 



*****C t,********** 

* RELEASE * 
"ElSAGE * 

* BLOCK * 

* * 
•*4i***«4i4i****«**« 



. X* 



'',V 



UES. 
'*• .*' 



***** 

»BW * 

* Al* 

* * 



**•«*[' 1 ********** 



THIS 
A NEW 
CHAIN 



***•*«*««******** 



************** A** 



il*****^,^***** ****** 

PRINT OUT 
* APPROPRIATE ♦ 



****«****•**• 



GET TO 

NEXT ENTRV 

IN CHAIN 



* X*. U 



***************** 



*•** 

* * 
>X* D4 * 

* * 
**** 



«****H2* ********* 

* HESSAGE * 

* NUMBER * 
» TO PRINT *. 

* BUFFER * 

* * 
*********•••****« 



* HAS *. 

IT GOT *. YES 
STATEMENT .*.... 
NUMBER .* 



***************** 



*****j I ********** 

* * 

* ACCESS • 

* MESSAGE ♦. 

* SKELETON ♦ 

* * 
*****•*****«•***• 



***** J2 ********** 



SCAN 



***************** 



****j %********** 

BUILD * 
MfSSAGE * 
Tix! |N .. 



PUT OUT 

01 AGNOSTIC 

► MESSAGE • 

************* 



*.IN CHAIN. 
'*, ,** 
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Chart BW. Phase BW overall Logic Diagram 



***** 

*BW * 
* Al* 



•****A I********** 

* * 

* RELEASE * 

* ANY LOADED * 

* PHASES * 

* * 
*•******•*«•**«•* 



*****ex**** ****** 

* * 

• RELEASE ALL » 
•ACTIVE TEXT AND* 

♦ DICT BLOCKS ♦ 

• * 
***************** 



«****r I ********** 

* FREE • 

* ANY • 

* OUTSTANDING ♦ 
*SCRATCH STORAGE* 

* * 
***************** 



••****D2* ********** 



**•****•*•*** 



***** 

♦ AA * 

• H** 



••*««E1 ***•**••** 



***************** 



*****F'i«********* 

* * 

* REALLOCATE * 

* TEXT AND • 

* niCT BLOCKS • 

* * 
***************** 



TEXT BLOCKS .*• 



*****H1 ********** 

* * 

• SET UP ♦ 
•COMMUNICATIONS * 

• REGION * 

* * 
***************** 



*****G2********** 



••**««•*«****•*«« 
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Table AS. Phase AS Resident Phase for Conipile-time Processing 



T T 

I Main Processing 
Statement or Operation Type j Routine 



■+- 



Subroutines Used 



Initializes switches for compile- |ADRP 
time processor | 



None 



+- 



Loads phases for com.pile-time 
processor 



lADRP 



4- 



LOADX (AA) 



Determines whether Phase EC should | ADRP 
be reloaded | 

. X 



None 
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•Table ASl. Phase AS Routine/subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



^ 1 ^ 

ADRP Unitializes switches for coitipile-tiine processor. 

BCKUP2 I Backs up token pointer two places. 

CHBLK I Changes currently busy IVB block status and gets a new block 

CLSBUF I Handles calls to close and write out the buffer. Loads and bases 

phase BJ if necessary. 

ICOMENT I Scans the limits of a corr'inent, transfers each character into the 

output buffer. 

ENDIVB I Closes an IVB chain. 

FREVAL [Releases a chain of IVBs containing a no longer needed value and 

returns chain to free list. 

GETIVB I Removes an IVB from the free chain for use by the calling routine. 

GNC I Updates TOKPTR to point to the next character in a particular input 

stream, 

HASH I Accepts an EBCDIC identifier as input and outputs an index. The 

index indicates the beginning of the HASH chain with which the iden- 
tifier is associated. 

INCTST IDetermines whether Phase BC needs to be reloaded on return fromi 

Phase EG. 

INPUT I Reads in an input record from the source data set or from included 

text. 

INRD I Reads physical records from the included data set; unblocks and 

sends them back one logical record at a time. 

NXTTXT I Gets a new text block and sets up address slots. 

OUTPTC I Outputs a single character into one of the three output media: 

IVB's, text blocks, or external records. 

SRHDIC I Searches the dictionary for the presence of a named item. 

STRING I Scars the limits of a string constant, transfers each character to 

output. 

TOKSCN I Examines text, character by character recognizing and returning each 

logical unit of text (called a token). Tokens include identifiers, 
constants, operators, delimiters, etc. 

UPNEWL I Updates temporary linecount slot. 

YAG2 I Loads processor phases for the compile-time processor. 
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Table AV Phase AV Macro Processing Initialization 

r ■ 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Initializes communication area for 
compile-time processing 



INIT 



None 



Allocates push down stack from 
scratch storage 



INIT 



|1 

Creates dictionary entries and 
'values for constants pool 

L . 



None 



Allocates translation tables 



INIT 



None 



+- 



Enters SUBSTR into dictionary 



INIT 



None 



INIT 



None 



•Table AVI. Phase AV Routine/Subroutine Directory 



r ■ T- 

I Routine/Subroutine | 
^ „ 



Function 



INIT 

WWN04 8 

WWOVLP 

WWOBCD 
WWCHNBEG 

WWMOVEIT 

INCLUDE 

LABELS (BC 

GOTO Subroutine 

ACT Package) 

ELSE 



Entry point to the initialization phase. This initializes the com- 
munication region for compile-time processing. 

Allocates the push down stack (to be used by Phases BC and BG) from 
scratch storage. 

Sets up tables to translate external code to EBCDIC; tests the 
BCD, EBCDIC option. 

Enters built-in function SUBSTR into dictionary. 

Creates dictionary entries and values for compile-time constant 
pool. 

Moves Subroutine package into core for use by BC . 

INCLUDE Processor 

LABEL List Processor. 

GOTO Statement Processor. 

Active/Deactivate Processor. 

ELSE Clause Processor. 



Section 3: Charts and Routine Directories 



91 



Table BC. Phase BC Initial Scan and Translation 
r 



T T 

Main Processing 
Routine 

+- 



Statement or Operation Type 



Subroutines Used 



Recognizes statement type 



PHISCN 



+- 



+- 



TOKEN, DELETE 



Scans until next % character 



PHISCN 



FINDPC 



Processes PROCEDURE statement 



PHISCN 



TOKEN, DELETE, IDSRCH, 
ADDSP (FREVAL, OUTPTC) 



Processes labels attached to state- 
ment 



PHISCN 



IDSRCH 



+- 



Encodes statement into internal 
text 



PHISCN 



■+- 



PARSE, TOKEN, IDSRCH, ADDSP 
DELETE, CHECK 



Cleans up after INCLUDE in initial 
scan 



PHISCN 



None 



Begins statement identification 
process 



PHISCN 



None 
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iTable BCl. Phase. BC Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



^ 1 _ ^ 

Obtains the dictionary reference of a constant, entering it into the 
dictionary if necessary. 



ADCONS 

ADD8P 
ADICT 

ADPROC (BF) 
ASSIGN 

CHECK 

DECLAR (BF) 
DELETE 

DO (BE) 
DONE (BE) 

FINDPC 

IDSRCH 

IF (BE) 
KYWDSR 
PARSE (BE) 

PIF4 

PHISCN (BE) 
RETURN 
STB 3 

STMT ( BE ) 
TOKEN 



Adds a processor-c^reated item to the dictionary. 

Adds a normal item to the end of the appropriate hash chain and 
returns the dictionary reference. 

Processes PROCEDURE statement. 

Processes assignment statements. 

Checks bac}c for undefined labels and identifiers not declared within; 
the block. 

Declare statement processor. 

Skips over bad text up to the end of a statement, field or proce- 
dure. 

DO statement processor. 

Checks stack for possible THEN's or ELSE'S after statement is com- 
pleted. 

Scans source text, character by character, searching for macro per- 
cent character. 

Obtains the dictionary reference of an identifier, entering it in 
the dictionary if necessary. 

IF statement processor. 

Checks for single or multiple keywords. 

Parses and generates interpretive macro code for compile-time 
expressions. 

Provides special handling for end of included text- 
Main controlling routine for phase. 
Processes RETURN statement for PROC. 

Collects labels into label list and identifier statement type on 
first two tokens of statement. 

Diagnoses statement type and builds label list. 

Returns significant tokens to PHISCN and writes out diagnostics for 
tokens in error. 



Generates an update linecount instruction. 

Note: See also BC Subroutine Package in Table AVI. 



UPDLIN 

L . J. . J 
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Table BG. Phase BG Final Scan and Replacement 
r T- 



Statement or Operation Type 



+■ 



Main Processing 
Routine 



Subroutines Used 
OUTPUT, TOKSCN, SRHDIC 



Final scan for replacements 



PH2SCN 



+ - 



Recognition of end of text 



PH2SCN 



+- 



OUTPUT, TOKSCN, SRHDIC 
OUTPUT, TOKSCN, SRHDIC 



Recognition of an identifier 



PH2SCN 



Recognition of macro action 



PH2SCN 



+- 



OUTPUT, TOKSCN, SRHDIC 
OUTPUT, TOKSCN, SRHDIC 



Recognition of % character 



PH2SCN 



+- 



■+- 



Recognition of other characters 



PH2SCN 



■+- 



OUTPUT, TOKSCN, SRHDIC 
OUTPUT, TOKSCN, SRHDIC 



Terminates and cleans up INCLUDE 
handling 



PH2SCN 



Re-establishes scan at next higher 
level text 



PH2SCN 



OUTPUT, TOKSCN, SRHDIC 



Performs replacement on activated 
identifiers 



PH2SCN 



OUTPUT, TOKSCN, SRHDIC 
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1 Table BGl. Phase BG Routine/subroutine Directory 



J. ^. 

I Routine/Subroutine | 



Function 



CLOUT (BJ) 
CONVRT 

DACLN 

DAEOB 

DAEOBF 

DAIDEN 

DAMAC 

DAOTHR 

DAPENT 

DAPRTC 

FUNCTN(BJ) 

GETDIC 

INCONT 

INTPRT (BI) 

OUTPT 

PH2SCN 

POP 

PROINV (BI) 

PUSH 

PUNCH (BJ) 
SYNCH 
TPEEK 

ZAASIGN (BI) 
ZACOMP (BI) 
ZACONCAT (BI) 
ZACVT (BI) 
ZALGCL (BI) 
ZAPUSH (BI) 



Closes output buffer, and writes out record on SYSUT3. 

Handles conversions between the three data types used in the 
corripile-tirtie processor . 

Terminates INCLUDE text handling and frees text blocks containing 
included text. 

Re-establishes scan at next higher level text. 

Recognizes and processes end of text condition. 

Recognizes and processes identifier in text. 

Recognizes and processes macro action character. 

Recognizes character and outputs it. 

Handles replacement operation for text identifiers. 

Recognizes % character and recalls Phase EC if appropriate. 

Handles built-in functions. 

Picks up a two-byte dictionary reference from scrubbed text, per- 
forms error checking, resolves indirect references, and returns both 
relative and absolute address. 

INCLUDE control routine. Opens DCB, finds member, sets up buffer, 
and initiates look-ahead read. 

Interprets the macro code generated by the Phase I scan. 

Handles the output of tokens. 

Scans text blocks. 

Pops the top temporary off the Phase II stack. 

Special entry point to interpreter for invocation of procedures 
found in source program text. 

Pushes next available temporary onto the Phase II stack. 

Punches down output record, in source code, on MACDCK option. 

Synchronizes linecount, closing buffer if necessary. 

Scans for procedure reference argument list left-parenthesis. 

Performs identifier assignments for INTPRT. 

Performs all logical comparison operations for INTRPT. 

Performs string concatenations for INTPRT. 

Converts stack items to required type by 'RETURNS' attribute. 

Performs all logical operations for INTPRT. 

Performs stack maintenance for INTPRT. 
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Table BGl. Phase BG Routine/subroutine Directory (cont'd) 

Function 



r T 

I I Routine/Subroutine I 



h 



■+■ 



I IZARITH (BI) 

I 

I IZATRAI (BI) 

I 
I JZATRAN (BI) 

I 

I jZJSUBS (BJ) 
L 



Perforins all arithmetic operations for INTPRT. 
Handles transfers from included text to including text. 
Perforirs all transfer operations for INTPRT. 
Built-in function SUBSTR. 
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Table BM. Phase BM Diagnostic Message Determination and Printing 

r T ■ T 

I |Main ProcessingI 

I Statement or Operation Type j Routine | Subroutines Used 



|. 1__. 

I Determines whether error messages | XA 
I are to be printed j 

1__. 



■+- 



None 



|. 

I Scans error message text skeletons \XAi 
I and prints them out j 

L .^ J. 



■ + - 



XA50, XA70, XA90, XAllO, ZUPL 



Table BMl. Phase BM Routine/Subroutine Directory 



^ y. 

I Routine/Subroutine | 
I- 



Function 



XA 

XAO 

XAOl 

XAl 

XA2 

XA4 

XA7 

XA8 

XA9 (BN) 

XAl 2 A 

XA3 (BN) 

XA3 2 (BN) 

XA3 5 (BN) 

XA4 (BN) 

XA5 (BN) 

XA7 (BN) 

XA90 (BN) 

XAllO (BN) 
ZUPL 



Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 



Table BW. Phase BW Cleanup Phase 



■T T- 

|Main ProcessingI 
I Routine j 



Statement or Operation Type 



Subroutines Used 



4- 



1-- 

I Resets all tables and com.muni- | lEMBW 

I cations region cells to the value j 

I required by the compiler proper j 

L . . J. 



■ + - 



None 
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Chart 02. Read-In Logical Phase Flowcaart 



***** 

•nz * 

* Al« 

« * 



.* CHARACTER 

SET 

*. OPTION . 

*• •* 

*• •* 



*****H2********** 
♦4B-CHAR BX* 



***«*•*•*••««**•* 



*****B1 ********** 
*1ST PASS CI* 
•-*-*-*-•-*-*-*-* 
* LIST IF REO'O * 
*AND CONVERT TO • 
•INTERNAL CHARS • 
***************** 



•****C1 ********** 



•FOR LABELS AN 
* CHECK FOR 

•**•*********« 



*2ND PASS CL* 

*-*-*-*-*-*-*-•-* 

* SCAN TEXT TO * 
*ANALYZE SYNTAX • 

* OF STATEMENTS * 
•******•***•***«* 



El • 
.* ANY 
.* ALLOCATE 



.* ALLOCATEi *. 

•Si^ktlllNfi.^i-" 



•««*«E 2 *******••* 
*3RD PASS CO* 

*-*-*-•-•-•-•-*-• 
, X* SCAN TEXT TO ♦ 
•ANALYIE SYNTAX ♦ 
• OF STATEMENTS • 
***************** 



Fl 



*, 



ANY 

.•STREAM I/n ♦. YES 
. OR FORMAT .*.... 
•STATEMENTS.* 
•• •• 

•< .* 
• NO 



*****f^2********** 
•*TH PASS CS* 

•-*.*-•-*-*-*-*-* 
X* SCAN TEXT TO • 
•ANALYIE SYNTAX * 
• OF STATEMENTS • 
***************** 



•MAKE CHAINS 
♦CALL. — *■' 
* ALLO.^ 

*******i 



E CHAINS OF * 
L. OECLARE, * 
LOC, I PROC * 

************* 



***** 
♦A3 * 
* Al* 
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chart BX. Phase BX Cverall Lcgic Diagram 



***** 

*BX ♦ 
* Al* 



***** Al*«**««*** 



RECORD 



SCAN FIRST 



***************** 



Bl *. 
• * «. 

» NEAR *. 



,* 

I* 
NO 



BA70 

**••*« 2***«*«**** 

RIAO ONE * 



EAO ONE 

Recoro 

BEAD AS 



********««*«••«•* 



*t***c ?*•*«•*•*• 



,* 

*. OF 



IF CQHHENT .*». 
^R STRrN|.* 



*l OF CQhSeNT ', 
*,0H STRlN|.* 



• X* A 



PPRfipR 
SHI TCH 



RIATE 



***««*«***«*****i 



BA25, BASr 

«i|r***r)?***«****** 



;??§?! 



««*«***«**«*•**** 



.♦ POSSIBLE *. VES 
*. KEYWORD. .*.... 
♦I'ERIOO, OR.* 
*.COMHA.* 
*• •* 
• NO 



• * *t 

.* IN ♦. VfS 

rX*. COHHENT ..*.>.. 
*.0R STRING.* 

*• •* 

*• •* 
* NO 



«««**f4***«****** 



*••***«******•*** 



• *. 

RFCORO .♦ 
», .* 

*• •* 
• YES 



*•«* 

* • 
.X* A2 * 

* « 

«*** 



F3 



• *. 



*. 



• * *• 

c* OPERATOR *, VES 
*. KEVHORO .*.... 
*. .* 

*• .* 

*• •* 
* NO 



Id* ***«••******• 



.BAiW \ 

***«*G1 ********** 
• WRJTF * 



SACK 
STO 



NEXT *. YES 

«ECnRD .*.... 

MREAOY .* 



.*• 



*****H2*********| 

• IN CORE 

« 
•*«*«*«*••****** 
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*. 



.* *. 

► *, YES 

PERIOD .*.... 

H, 0* 

*> •* 

*. « * 
♦ NO 



***«*j I********** 

* * 

* IGNORE » 

* * 

«««•*•«*•****•*** 



,.* rni.i.OHED 

♦ , PF'<!0!) 



FOLLfWEt) 
riY A 

, niGiT 



* REPLACE * 
<• BY ♦ 

* COLON * 

* * 
***************** 

I **** 
• * * 

..X* «7 » 

* * 

**•* 

• *«*ff a; •*«******* 
* 
* 
IGNORE ♦ 



, **•* 
. * * 

,. X* «2 * 

* * 

**** 

'*•*•* Ji!******«*** 

* * 

* RFPLACF ♦ 
«« RY * 

* SFMI-COLON * 

* * 
***************** 



***** 
*CI * 
• Al* 



****K<^********** 
* 
* 
IiWDRF *. 

« 
««*«****•******* 
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chart CI. Phase CI Overall Lcgic Diagrain 



***** 

♦CI • 
* Al* 



***************** 



.*'h 



.FOR LABEL oft*. YES 



POPLSr 

*****B2 ********** 

* INSERT LABELS * 

* AND/OR PREFIX * 
• ..X* OPTIONS IN * 

* OICTIONARV • 



**••*•***«*•*•**• 



PROCfENTRVt*.0OfBEGIN 
CI *. 
.* TEST *. 
.♦ FOR BLOCK *. YES 
*. HEADING .*.... 
♦ .STATEMENT.* 
*. •* 

*• .♦ 
♦ NO 



*«***C2 *•*♦***•** 

♦ INCREASE ♦ ♦♦•♦ 

♦ BLOCK SNO/OR * • « 
<• LEVEL COUNT «....X* E2 « 

♦ BY I * * • 
« * **«* 
•••««••*****•***« 



TEST ♦. YES 

FOR ...... 

KEYMORO .♦ 



ASSIGN .♦. 

El 

.» TEST ♦. 
.♦FOR NULL OR*. YES 



, ♦ 


TEST 


..X*. 


FOR 


*, 


•END 


4 






*. . 




* 


♦ *♦« 




• 


• . 


* E2 


*.X. 




« . 


• ♦*• 




STAT? ^ 


i. 



***«*D3****«****« 

FiSvgSb. :• 

PUT TEXT ♦ 

••*******• 



♦ BLOCti 



.* TES 
,* IF t| 



« * 

, * 

YES 



TEMENT. 

*. .* 

*. .♦ 



«*«**E2*********« 

* 

TRANSFER 

.rATENENT ■ - 

OUTPUT TEXT 

* V 

•*•**••**•**••«•* 



* * * 
*....X* Bl * 

* X • • 
•*«* 



*CL * 
* 62* 



* SKIP * 
,♦ TO NEXT * 

* SEMI-COLON ♦ 

* • 
*****••**•****«•« 



•«***F4********** 



••***«••*•**•**** 
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chart CL. Phase CL Overall Lcgic Diagram 



\H* 



BEGIN. ITDO. 
DOf eOTOi WAIT. 
DELAY, EJilT, STOP, 
ENDO, ENDITDO, 
RETURN, FREE, CALL, 
otSPLAY, FORMAT, 
END 



TEST FORI 

REAb, HrWe, 
REMRlTE, OELETE, 
OPEN, CLOSE, 

LOCATE, I Snore ii 

UNLOCK 



ALLOCATE, DECLARE, 
ON, SIGNAL, 
REVERT, ASSIGNt 
(>00B, tF, PROCi 
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*, 



.* TEST *. YES 

•.FOR SPECIFIC .*.... 

♦.KEYWORDS .* 

*. .* 

*. ,* 
♦ NO 



.♦ TEST FOR 
♦.j/0 STATEHEN 

**. .♦* 



•*. 

02 < 

.♦* TEST 
•. FOR orf 

*STATENE^ 

*♦. .** 



* « 

♦ PROCESS • 
<♦ THE » 

• STATEMENT • 

* * 



* * 

♦ MARK THE • 



*••«••««********• 



•«*««03***4>«***** 

* TRANSFER ♦ 

• STATEMfNT TO ♦ 
.X* OUTPUT TEXT *. 



***** 



i***** 



.♦ TEST 

*. END 
•. PRC 



FOR *. 
OF 
SRAM .* 



*, ,* 



**** . 
* * • 
► F2 ♦. X. 



***** 
*Cp ♦ 



BADjT 



• SKIP TEXT TO ♦ 

:Kiiss-R8H?Psg? :•" 

* * 

***************** 



NOTEt 



GOES TO PHASE CS IF PROGRAM 
DOES NOT CONTAIN A DECLARE. 
CALL, OR ALLnCATE STATEMENT 



F? 

* 
T£: 



.*. 



*****f^********** 

• • 

* TRANSFER ♦ 
<*ELSF STiTPMENT * 

'►TO OUTPUT TEXT * 
« * 

************ttm*** 
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chart CO. Phase CO Overall Lcgic Diagram 



***** 

*co • 

* Bl* 



SCANZ .*. 

Bl ♦. 
• * *• 

..X*I FOR 

*. DFCLARE . 
. *• •* 

♦» .♦ 

**** • NO 

* * • 

* Bl * . 

* * • 

**** . 



.* TEST 
*. FOR 

•.ALLOCATE 



*****B3 «••*****•* 



********••*•**•*« 



BCDL X 

•****C2 ********** 

* CHECK SYNTAX • *♦•* 

• OF * * 
...X* DECLARATION *....X* Rl 



OR 



X * 



***« 



TEST 

FOR 
CALL 



t****02****«***** 

* * 

* PROCESS • 
<* CALL *. 

* STATEMENT ♦ 

* • 
•***•***•*•*****• 



► TEST *. 

FOR END OF . 
». PROGRAM .* 



SCANT 

•«*«*F7 ***«••**** 

• TRANSFER ♦ 

• STATEMENT * 

, ,. X* TO OUTPUT •. 

• TEXT WITHOUT * 

• PROCFSSING * 
•**•*««*****•**«* 



***** 

*cs • 

* B2* 
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chart CS. Phase CS Overall Lcgic Diagram 



INPUT FROM PHASE 
DOES NOT CONTAI 
OR ALLOCATE STA 



ASE CL IF 
AIN OECLAR 
TATEMENTS 



TEST FORI 
READt WRITEi 

opeJi, ^ibse. 

REWRlTFt DELETEf 
LOCATE, iGNOREt 
UNLOCK 



*«***B3*««*****«* 



«*••«««•****«**** 



.* TEST FOR *. NO 
*. END OF .*... 

*. PROGRAM .* 

*. •* 



**«*•*«**•«*****• 



im»*03********** 



♦ OUTPUT TEXT • 



***** 

*cv • 

♦ B2* 



Section 3: Charts and Routine Directories 



103 



Chart CV. Phase CV Overall Logic Diagram 



*cv • 

♦ BZ* 



,* TEST 
FOR 
*.LABEL(SI 



••«•**•*****•«*** 



NO .♦ TEST •. VFS 

,.,*. FOR PREFIX .*..!. 

• . OPTIONS .* 



PROCESS 

PREFIX 

OPTIONS 



**•*•«••*••*•««* 



.♦. POCl 

.• TEST *. • FORM THE ♦ 

.♦ FOR CHECK *. YES • NECESSARY * 

*. AND NOCHECK .* X* PSEUOO *. 

• • LISTS .♦ ♦ STATEMENT ♦ 



*• •* 



*«*•**•**•*****•• 



BEGINt C 
DECLARE 



sHXiErN?! 



<»•*«•«*«*•* 



.« TEST ♦. 
.* FOR AN *. YES 
*,ON-STATFMENT ,*..., 



CHEKON 

♦ SURROUND ♦ 

• THE ON-UNIT * 



TEST 

FOR 
•END* 



***«**«**«****4i** 



•••••**•*•*•••*** 



► TEST 

FOR END OF 
». PROGRAM . 



• EG • 
» Al* 



**** 
» • 

* B2 * 

* * 



• TRANSFER 

• STATEMENT 

• WITHOUT • 

• CHECKING ♦ 



*•< 
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Table BX. Phase BX 48-Character Set Preprocessor 
r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Translates keyword table to inter- 
nal code and initializes 



BAOO 



None 



Reads a record 



BAl 



ZURD (AA) 



+- 



Scans text 



EAIA 



None 



Handles operators and keywords 



BA5 



+- 



None 



+- 



Replaces operator keywords 



BAll 



■+- 



None 



+- 



Replaces comitia-dot by senii-col\on 
where applicable 



BA20 



■+- 



None 



Deals with quote marks 



BA25 



4- 



None 



+■ 



Maintains parenthesis level count 



BA30 



•+- 



None 



+ - 



Replaces period-period by colon 



BAUO 



■ + 



None 



+- 



Processes a slash 



BA50 



■ + 



None 



+■ 



Reads one record ahead in case of 
need 



BA7 



None 



Restores the situation V7hen a read 
ahead has taken place 



BA8 



■■1- 



None 



Puts out converted text and origi- 
nal text onto backing store 



BA90 



ZUBW 
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Table CA. Module CA Read-In Coniition Block 1 

r >■ 



Function 



Subroutines 



|. 

I Provides subroutines comition to all five 
I passes of the read-in phase 

L 



lACONST, DECINT, EXP, EXPAND, EXPLST, IDE1S1T,| 

JMVCHAR, OPTOR, SCONST, SINGLE, SQUID | 

.X I 



Table CAl. Module CA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



I ACONST 
DECINT 
EXP 

EXPAND 
EXPLST 

IDENT 

1 MVCHAR 

OPTOR 

SCONST 
SINGLE 
SQUID 



Checks for a valid arithmetic constant. 

Checks decimal integer. 

Diagnoses expressions. 

Expands iterations of string constants and picture characters. 

Checks for a list of expressions separated by commas but enclosed in 
parentheses. 

Checks for a valid identifier. 

Moves text from one address to another. 

1 Checks for an operator and replaces the two-byte operators by one- 
byte codes. 

Checks for a valid string constant. 

Diagnoses a single expression in parentheses. 

Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read-In Common Block 2 

IP . ^. 



Function 



Subroutines 



■+■ 



II Provides subroutines cottiirion to all five 
[passes of the read-in phase 

I . 



I CHAR, CHECK, KEYWD, MESAGE, NONEX, 

INULINS, OPTEST, PICT, PREC, SCFLOW 

.X 



Table CCl. Module CC Routine/Subroutine Directory 



I T- 

Routine/Subroutine | 



Function 



CHAR 

CHECK 

KEYWD 

MESAGE 

NONEX 

NULINS 

OPTEST 

PICT 

PREC 

SOFLOW 



Diagnoses the CHARACTER and BIT data attributes. 

Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character to the 
caller. 

Provides a diagnostic message. 

Checks stack for non-executable statements. 

Inserts null statement in output text. 

Tests the output string and moves text to the output. 

Diagnoses a picture. It uses a TRT table set up for the purpose. 

Diagnoses the precision, and the attributes and format items which 
use it. 

Bumps stack pointer and checks for stack overflow. 



Table CE. Modules CE, CK, CN, and CR Read-In Keyword Block 

r ■ T 



Function 



I- _ 

I Provides tables of keywords in internal 
I code, together with replacement code. 
I No functional code exists in these modules. 
I Refer to Appendix B for details of keyword 
I tables. 

L 
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Table CI. Phase CI Read-In First Pass 
r 



■T T" 

I Main Processing | 

I Routine | 

4 



statement or Operation Type 



Subroutines Used 



HI 



4 

I ASSIGN, BADSTl, BEGIN, DO, || 

I ELSE, BUMP, END, EOP, ERROR, IF, j 
I ON, POPLST, PROC, READ, SIGRVT, j 
|STAT2, STRING, plus those | 

j subroutines contained in modules CA|| 
I and CC | 

.1 J 



Controls main scan, identifies 
statements, and analyzes some in 
detail 



RSTART 



Table CIl. Phase CI Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



1-- 



4- 



ASSIGN (CG) 
BADSTl 

BEGIN (CG) 

BUMP 

DO (CG) 
ELSE (CG) 
END (CG) 

ENTRY 
EOP 

ERROR (CG) 
IF (CG) 
ON (CG) 
POPLST 

PROC 

READ 

RSTART 

SIGRVT (CG) 
STAT 2 (CG) 
STID 
STRING (CG) 



Diagnoses an assignment statement. 

Recovers from failure to recognize a statement type; skips to next 
semd-colon. 

Checks the BEGIN statement and makes an entry in the first pass 
stack. 

Advances the input Data Pointer (DP), skips blanks, if any, forcing 
source text to be read into storage as necessary. 

Checks the DO statements and makes an entry in the first pass stack. 

Unstacks an IF compound statement. 

Processes three different types of END statements; PROCEDURE-BEGIN; 
DO; iterative DO. 

Processes ENTRY statement. 

Processes end-of-program marker, and returns to compiler control in 
order to load next pass. 

Handles false starts on possible statements. 

Scans the IF statement and makes entry in first pass stack. 

Diagnoses the ON statement and makes entry in first pass stack. 

Removes prefix options from the text and places them in the dic- 
tionary. 

Scans the PROCEDURE and ENTRY statement and makes an entry in the 
first pass stack. 

Reads source text into storage, translating it into internal code, 
except for character strings; removes comments; prints source list- 
ing and prefix options. 

Controls the first pass scan. Enters statement labels into the 
dictionary. 

Scans SIGNAL and REVERT statements. 

Handles all other statements. 

Statemient identifier routine. 

Scans character strings. 
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Table CL. 
r 



Phase CL Read-In Second Pass 



T T" 

|Main ProcessingI 
I Routine j 



Statement or Operation Type 



Subroutines Used 



I Scans for statements handled in | 
I this pass, analyzing therri in j 
I detail. Skips over other statements) 



SCNA 



I BUMP, DELAY, DSPLAY, DO, FREE, | 
I GOTO, ITDO, LABEL, PROC , RETURN, | 
JTRTSC, plus those subroutines con- j 
jtained in modules CA and CC | 
.X . J 



Table CLl, Phase CL Routine/Subroutine Directory 



Routine/Subroutine j 
1. 



Function 



BUMP 

DELAY 
DSPLAY 
DO 
EOP 

FREE 

GOTO 

ITDO 

LABEL 

OPTION 

PROC (CM) 

RETURN 

SCNA 

TRTSC 



Increments the input Data Pointer (DP), skipping over blanks, 
obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Processes DO statements. 

Processes end-of -program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

Diagnoses LABEL attributes. 

Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 

Analyzes PROCEDURE attributes and options, and completes the diag- 
nosis of PROCEDURE and ENTRY statements. 

Processes RETURN statements. 

Main controlling routine of this pass. 

Skips over all other statements. 
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Table CO. Phase CO Read-In Third Pass 



T T- 

Main Processing) 
Routine | 
+- 



I Statement or Operation Type 

^ 

I Scans for DECLARE, CALL, and 
I ALLOCATE statements. Analyzes 
I syntax of attributes by calling 
I appropriate subroutines 



Subroutines Used 



■I 



SCAN2 



lATTLST, BUMP, CALLOP, DECL, DEFIND, 
I DIMS, ENTRY, ENVMNT, EOF, 
JGENRIC, LABEL, LIKE, USES, IVLIST, 
I and those subroutines contained in 
I modules CA and CC 



Table col. Phase CO Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



Processes an attribute list. (Recursive) 

Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP), obtaining new input block if necessary. 

Checks CALL statements and options. 

Processes the DECLARE and ALLOCATE statements. 

Checks the DEFINED attribute. 

Examines the dimension specifications. 

Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end-of-program marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute. 

Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Checks for a qualified subscripted identifier in parenthesis. 

Checks the REFER attribute. 

Scans for DECLARE, CALL, or ALLOCATE Statements, moves others to the 
output string unaltered. 

Moves text to semicolon without alteration. 

Processes the USES and SETS attributes. 



1 ATTLST 




IBDCL 




|BUMP 




1 CALLOP 


(CP) 1 


IDECL 




1 DEFIND 




IDIMS 




1 ENTRY 




1 ENVMNT 


(CP) 1 


|EOP 




IGENRIC 




1 IVLIST 


(CP) 1 


1 LABEL 


(CP) 1 


ILIKE 




1 PSQUID 


(CP) 1 


1 REFER 


(CP) 1 


1 SCAN2 




1 SCANT 




|USES 
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Table CS. Phase CS Read-In Fourth Pass 



.y . y. 

I Main Processing I 
Routine 



Statement or Operation Type 



Subroutines Used 



■+- 



■+• 



_ ^ 

|EOP, FORMAT, GET, LIST, OPEN, | 

I READ, TRTSC, plus those subroutines! 

I contained in irodules CA and CC | 

-X J 



I Controls main scan and identifies | SCNA 
I I/O statements for further analysis) 



Table CSl. Phase CS routine/Subroutine Directory 



P y. 

I Routine/Subroutine | 
|. . _ ^_-+. 



Function 



EOP 

FORMAT (CT) 

GET (CT) 

LIST 

OPEN (CT) 

READ 

SCNA 
TRTSC 



Processes end-of -program marker and releases control. 

Processes the FORMAT statement and format lists. 

Processes GET and PUT statements. 

Processes data lists. 

Diagnoses OPEN and CLOSE statements. 

Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
DELETE. This routine also checks for permissible combinations of 
these statements. 

Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text. 
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Table CV. Phase CV Read-In Fifth Pass 



■T T- 

I Main Processing I 

I Routine j 

■+- 



Statement or Operation Type 



Subroutines Used 



I Identifies statements for which it | SCNA 
jmust build chains | 



ICALLIN, CHAIN, DECL3, DC3, END3, 
IENTRY3, EOP, POAl, PR0C3, TRTSC , 
I and those subroutines contained in 
I modules CA and CC . 



Table CVl. Phase CV Routine/Subroutine Directory 



r y 

I Routine/Subroutine | 



Function 



CALLIN (CW) 

CHAIN 

CHECKON 

DECL3 

D03 

END 3 

ENTRY3 

EOP (CW) 

ILABSN (CW) 

POAl 

POCl 

PR0C3 

SCNA 

SCNZ 

TRTSC 



Makes up the CALL chain. 

Forms chains. 

Checks the fifth pass stack for ON entry, in order to insert 
PROC-END statements round the ON unit. 

Chains the DECLARE statement to the appropriate PROC or EEGIN state- 
ment. 

Makes a stack entry for DO block. 

Checks the fifth pass stack. 

Makes an entry in the ENTRY chain. 

Processes end-of-program marker, and releases control. 

Creates pseudo-assignment statements for initial labels. 

Analyzes prefix options in greater detail. 

Processes check lists. 

Makes an entry in the PROCEDURE-BEGIN chain. 

Main controlling routine of the pass. 

Extracts statement num.ber for label entry. 

Skips over statements not required for analysis in this phase. 
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;hart 03. Dictionary Logical Phase Flowchart 



***** 

*03 * 
* Al* 



*****Ai ********** 

*1NITI*LIZN EG* 

*-.*-*-*_*_*_*-«_* 

*SET UP HASH TAB* 
*t, INSERT TABLE * 
♦ENTRIES IN CHNS* 
***************** 



«****BI «•**•***** 
♦CREATE DICT ENT* 
♦FOR PROCt BEGIN* 
♦AND ENTRY STMNT* 
♦AND SETUP ENTRY* 
♦ TYPE I CHAINS ♦ 
***************** 



*****C !***♦♦***** 
*OECL PASS 1 EI* 

*..*-*_*-*-*-*_•-* 

♦SCAN DECL CHAIN* 
♦PREPARE ATTRIBS* 
♦FOR NEXT PHASE * 

*4i*****^^******^* 



*4i***Dl ********** 

♦DECL PASS 2 EK^ 

*-.«-*-•-«-«-•-*-* 
♦SCAN DECL CHAIN* 
♦MAKE ENTRY FOR * 
♦FACH DEC VARIAB* 

*4i««******«*«*«** 



•«***E 1********** 

*CnHHUNICATNS EP* 
*..•-*-*-*-*-*-*-* 

♦SET LATE PHASES* 
♦WANTED OR UNWTO^ 
♦ ACC TO FLAGS * 

*«************«•« 



*«**«f:i ********** 
♦SCAN ENT TYPE 1^ 
♦CHN MAKING ENT ♦ 
♦TYPE 2 C 3 DICT^ 
♦ ENTS FOR DATA ♦ 
♦TYP RET BY PROC^ 
***************** 



•n* ♦AG 1 ********** 

♦ SCAN CALL ♦ 

♦ CHAIN MAKING ♦ 
♦Die ENTRIES FOR^ 

♦ EXTERNAL ENTRY ♦ 

♦ NAMES ♦ 
***************** 



.* DOES ♦, 
„* PROGRAM *. YES 
♦ .CONTAIN LIKE ...... 

♦ .ATTRIBUTE. ♦ 



*****H2 ******♦♦♦* 

♦ LIKE EW* 
*-•-♦-♦-♦-♦-♦-♦-♦ 

, X^SCAN LIKE CHAIN* 

♦ EXPAND ALL ♦ 
•LIKENED STRUCTS^ 
♦♦♦♦♦♦♦♦♦♦♦«***♦* 



.♦ ♦, 

..♦ALLOCATE OR^. YES 
♦ PTR, OUALI FIER. ♦.... 
♦ IN PROGRAM. ♦ 



♦♦♦♦♦J 2 ♦♦♦♦♦♦♦♦♦♦ 
♦ALLOCATE EY^ 

*-*-*-*-*-♦-*-*-* 
X*CC)PY DICT ENTRY* 
♦ OF ALLOCD C PTR^ 
♦QUALFD VARIABLS^ 
*****•***«*••**•* 



♦ENTRY FOR CONO 
♦ NAMES C FILES ♦ 

•*********••*«*«* 



♦ MAKE DICT ♦ 

♦ ENTRIES FOR ♦ 

, X*CONSTANTS USfn ♦. 
♦IN THE PROGRAM ♦ 

♦ . * 
••*•«**«***«****« 



*****A3 *****♦*•*♦ 

♦ BCO-DICT REF FE^ 
*-*-*-*-♦-♦-*-*-* 

.X* CHANGE BCD TO * 

♦ DICTIONARY * 

♦ REFERENCES ♦ 
***************** 



*****B 3********** 
♦CHECK FI* 
*-*-*-*-*-*-*-*-* 
•CHECK VALIDITY ♦ 

♦ OF DICTIONARY ♦ 

♦ REFERENCES * 
***************** 



C3 ♦. 
.♦ SETS ♦. 
.♦ OR USES ♦. YES 
♦ .ATTRIBUTE IN ...... 

♦. PROGRAM ,* 
*. .* 

*. •* 
* NO 



*****C/V* ********* 
♦ATTRIBUTES FK^ 
♦-»-*-•-*-*-*-♦-♦ 
.K^PROCESS SETS £ ♦ 
♦ USES LISTS IN ♦ 
♦THE DICTIONARY ♦ 
*•****•****«**«** 



*****D 3 ********** 
*0N FO* 

«-*-*-*-•-*-*-*-* 
♦CONSTRUCT DICT * 

* ENTRIES FOR * 

* ON-CONDITIONS * 
***************** 



*****(: 3 **«****««* 

* REPLACE BY AN ♦ 
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********♦♦♦♦♦♦♦•* 
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***************** 



*****G3*******«** 
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*-*-♦-*-*-*-*-*-* 
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***************** 



«*«**H 3**** «««*** 
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«*«*•****•*****•* 



*****j 3 ********** 
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«-*-*-*-*-*-*-*-* 
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***************** 
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*****j<^ ********** 
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* ♦ 
***************** 
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Chart EW. Phase EW Overall Logic Diagram 
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Chart EY. Phase EY Overall Logic Diagram 
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Chart FA. Phase FA Overall Logic Diagcam 
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Chart FK. Phase FK overall Logic Diagram 



***** 

«FK * 
* A2* 



OCTSCR X 

***«*A2********** 

* GET SCRATCH • 

* STORAGE. • 

* INrTIALliF *. 

* CONSTANT * 

* STACK • 
**«****«***«***i|i* 



FOl A X 

•«*** A 3 ••****•*** 

•scan attribute * 
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,.„x* for next • 
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***************** 



ENDFO 
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X 
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***** 


•••*•****••****** 
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***************** 



«****nf ********** 
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* and constants * 

♦ In sIts entrv * 

***************** 



*****D5********** 
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***************** 
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*• •* *« .* 

*• •* *• .* 



**** 
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*****E5*****«**** 

* * 
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..,X* LAST ♦ 

* 3JALIFICATI0N * 

* * 
***************** 
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Chart FO. Phase FO Overall Logic Diagram 
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Chart F2. Phase F2 Overall Logic Diagram 
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Chart FT. Phase FT Overall Logic Diagram 
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Chart FV. Phase FV Overall Logic Diagram 
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Chart FX. Phase FX Overall Logic Diagram 



• LOAD lEHFV, * 

* GET SCRATCH * 

♦ STORAGE AND • 

♦ TEXT BLOCK FOR * 

• SORT TABLE ♦ 



«*««*B2 •«*••***«* 



•y«- 



BUTEi *. NO 



• ••I iKinui ei • 

X*COMPILFR LABEL 

ON CONDITION* 



*•****•«***•••*** 



**«**i^4********** 



• ..,X* Sn^T ENTRY 



• * * 

.* END 

, OP CHAIN 



••*••«••*****•*•« 



****«***^****«*«* 



♦ . CHAIN . 
*• •* 

♦• •• 
• YES 

* * • 

♦ E2 *. X. 



.* ANY *. NO 

• • PARAMETERS .*... 
*• •* 



FX317? X 

«**«*E2*********4> 



«************«i«** 



nu 



• SORT 

* PARAMETERS 

« 



**4i***«***«***««* 



FXP250 


• *• 


• •• 


*****F1 ***••••••* 


F2 •• 


F3 ♦, 


• * 


• * *• 

YES .* END OF *. NO 

• •••*• CHAIN •*.... 


.♦ALLOCATION *. NO 




» » 


*• •* 


•.PARAMETER.* 


* • 


*. .* 




•**«*«*********4i* 


*. <.* 


*• •* 




• 


• YES 

. I*** 




**•• 




* • 


. * * 




• G2 »... 


..X* E2 * 




* * • 


* * 




»♦«« , 


♦ ♦•♦ 


• *• 


FXPRNT X 


FXBCn 

*i**««iG3 ••••••«•*** 


Gl *. 


*****r,2********** 




• * 




.♦ END OF *, YES 


• * 


• PR IN' BCD * 








*• .* 




""^ • *nF°lil«Y7 * 


*• •* 


* * 




*• •* 




••**•••*•*•** 




END 

OF 

CHAIN 



YES .* BCOt ON *. 
....*. CONDITION . 
• ENTRY TYPEo* 
*.3f4, 5. * 



im**Fi********* 



.* SORT ENTRY 



•••*•*•««•*•*•*« 



*•*• 

• * 

• 02 • 

• • 

• •** 
X 

', NO 



.** AT 



AITR *. NO 

' U'' .* 



o* XREF *. N3 .* END OF *. 

,X*. LISTING .* X*. SORT .< 

•. RFQD .* X *. CHAIN .* 



•••**jl t********* 

• ADD STATEMENT • 
♦NUMBER TO CHAIN* 

.* FOR THIS Diet • 

• ENTRY • 

• ♦ 



*««••« J3*********** 



•«*«•*«•***** 



*• . •• 

'♦'yes 



•*•*•••••••*• 



♦♦♦♦♦ 
♦GA ♦ 
• *1* 



128 



Table ED. Phase ED, Initialization 



P ^ ^. 

I I Main Processing | 

I Statement or Operation Type j Routine j 



Subroutines Used 



|.... 



■+- 



4- 



I Sets up routines in scratch core (SETUP 
I for phase EL j 

L .^ X 



None 



•Table EDI. Phase ED Routine/Subroutine Directory 



^ . ^. 

I Routine/Subroutine | 
|. 1. 

I EVENT 

I TASK 

I CELL 

I BASED 

I AREA 

I POINTER 

I OFFSET 

L 



Function 



Routines for processing declared attributes. These set up 
inforination in the attribute collection area of scratch core, 
for reference by CDICEN, etc., in phase EL. 



Table EG. Phase EG Dictionary Initialization 



.^ ^ 

I Ma in \ Processing 
Routine 



Statement or Operation Type 
Hashes labels 



■+ 

|CAA1 

■+ 

|CA7 

•+ 



+ - 



Subroutines Used 



+■ 



CHASH, CBCDL2 



PROCEDURE-BEGIN chain 
BEGIN 



None 



CA8A 



None 



4- 



PROCEDURE 
ENTRY 



CAPROC 



4- 



CANATP, CFORP 



ICAIO 

4 

I CFORP 

4- 



CANATP, CFORP 



Formal parameters 
Attribute list 



4- 



CHASH, CBCDL2 



CANATP 



4- 



4- 



CAPREl, CATCHA, CATBIT, CATPIC 



Creates entry type 2 entries for 
labels 



jCTYPBL 



ENT2F, CDEFAT 
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•Table EGl. Phase EG Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



■+- 



CAAl 

CANATP 

CAPROC 

CAPREl 

CATBIT 

CATC HA 

CATPIC 

CA6 

CA8A 

CAIO 

CBCDL2 

CDEFAT 
CFORP 
CHASH 
CTYPBL 
ENT2F 
TYPW 

OPTNl (EF) 
0PTN2 (EF) 
0PTN3 (EF) 
ATTRBT (EF) 



Scans label table and hashes labels. 

Processes attribute list. 

Processes PROCEDURE statements. 

Processes precision data. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes PICTURE attribute. 

Scans the PROCEDURE-BEGIN chain for the relevant statements. 

Processes BEGIN statements. 

Processes ENTRY statements. 

Traverses the hash chain looking for entries with the same BCD as 
that just found. 

Completes data byte for entry type 2 entries by default rules. 

Processes formal parameter lists. 

Obtains an address in the hash table for an identifier. 

Creates entry type 2 entries for labels. 

Creates or copies second file statements. 

Scans ENTRY chain. 

Checks containing block options, for inheritance. 

Processes procedure options. 

Performs post processing, makes STATIC DSA decisions. 

Processes POINTER, OFFSET, and AREA attributes. 
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I Table EI. Phase EI Dictionary Declare Pass One 
r T" 



Statement or Operation 



I Scans DECLARE statement 
^ 

I Scans text 



+- 



Main Processing 
Routine 



+- 



Subroutines Used 



CCGSO 



None 



+- 



CCGS2 



None 



^ „ „_. 

I Processes structure level 
|. _ _ — . 

I Factored attribute, left 
I parenthesis 



+- 



CCGSCM 



None 



-f- 



CCFLP 



CFP^JCR 



+ - 



I Factored attribute, right 
I parenthesis 



CCFRP 



None 



+- 



I Data following DEFINED attribute 
|. _ _ 

I POSITION 

^ . „ „ 

I CHARACTER, BIT 

I- 

I PICTURE 

^ 

I USES, SETS 

^ _ 

I LIKE 



CCDEF 



+- 



NEWBLK, CTXTRM 



POSIT 



None 



4- 



CHABIT 



CTXTRM 



+- 



+- 



CATPIC 



None 



■+■ 



+- 



SETS 



None 



LIKE 



None 



+- 



KEY 



j. 

I Dimension 
I- — 



KEYED 



None 



•+- 



■+- 



CDDIMS 



CTXTRM, AST, TOMENE , ERRORB 



•+- 



I Precision 

h 

I INITIAL 

F 

I INITIAL CALL 

I- 

I OFFSET 

f 

I BASED 

I- 

I AREA 

L 



CDPREC 



+- 



ERRNEG, SCLBIG 



EJINIT 



CECON, EHINIT 



INCALL 



CTXTRM 



OFFSET 



CTXTRM 



■+ 



BASED 



PTVEXP 



■ + 



■ + 



AREA 



CTXTRM 
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►Table Ell. Phase EI Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 

h 



Function 



AREA 

AST 

BASED (EH) 

CATPIC 

CCDEF 

CCFLP 

CCFRP 

CCGSCM 

CCGSAT 

CCGSE 

CCGSOO 

CCGS2 

CDDIMS (EJ) 
CDPREC (EJ) 

CECON (EH) 

CFPiVlCR 
CHABIT 
CSGSOO 
CTXTRM 

EHINIT (EH) 

EJINIT (EJ) 

ERRNEG 

ERRORB 



Processes AREA atrributes. 

Deals with the case of* diinension bounds mixed with non -* bounds. 

Entry point in OFFSET routine, at which second file statement is 
made. 

Processes , PICTURE attributes . 

Processes data following DEFINED attribute. 

Processes factored attributes (left parenthesis) . 

Processes factored attributes (right parenthesis). 

Processes structure level. 

Attribute routine selector. 

Scans DECLARE chain. 

Scans text. 

Scans source text. 

Processes dimension attributes. 
Processes precision attributes. 

Makes a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 

Obtains more storage for the factored attribute table. 

Processes CHARACTER and BIT attributes. 

Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if nec- 
essary. 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label-constant list. 

Deals with the case of a negative precision specification. 

Deals with the case of lower dimension bound declared greater then 
the upper bound. 
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Table Ell. Phase EI Routine/Subroutine Directory (cont'd) 



Routine/Subroutine j 
1. 



Function 



GENTRY 
INCALL (EJ) 
IVROOM (EH) 

IVPUTL (EH) 

IVPUTC (EH) 
IVPUTO (EH) 

KEYED 
LIKE 
NEWBLK 
OFFSET (EH) 
POSIT 
PTVEXP (EH) 

SCLBIG 

SECON 

SETS 
TOMENE 
L 



Keeps a count of parentheses in GENERIC and ENTRY processing. 

Processes INITIAL^CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list' for a label 
constant. If the constant is not known, a dumrry reference is 
inserted. 

Places a dictionary reference in the 'initial list' for a constant. 

Places the dictionary reference of zero in the 'initial list' for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

Obtains new text block. 

Processes OFFSET attributes. 

Processes POSITION attributes. 

Entry point in OFFSET routine, at which secondfile stateirent is 
made. 

Deals with the case when the scale factor in a precision specifi- 
cation for fixed-point data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 

Deals with the case when the number of dimensions declared is great- 
er than 32. 
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Table EL. Phase EL Dictionary Declare Pass Two 



r 


T- 


T 








1 


1 


|Main Processing! 










1 Statement or Operation Type 


1 Routine 


1 


Subroutines Used 






_ 1 


1 












T 


T 










1 Scans chain of DECLARE statements 


ICGENSC 
X _ 


JCDCLSC 
J. 












T 


T 










1 Scans each item of DECLARE 


ICDCLSC 


lATLSCN, 


BCDPR, 


CDFLT, CDICEN, 




1 statement 


1 

1 

-1- - 


ICDII^jAT, 
ISELMSK, 
4. 


DCIDPR, 
ST RPR 


INTLZE, 


POSTPR, 






T 


T 










1 Initializes each icientifier 


IINTLZE 


1 DCIDPR 










1 declared 


1 
± 


1 
J. 












T 


t 










1 Processes factor brackets and leve 


1| DCIDPR 


ITEMSCN, 


BCDPR 








1 numbers 


1 

_ 1 


1 

1 _ 












T 


T - 








i 


1 Scans for next level number 


ITEMSCN 
-J- _ 


ICDATPR 
X - 












t 


T ~ 








"1 


1 Processes BCD of identifier 


IBCDPR 

-± _ _ _ 


IBCDISB, 
1 


CHASH, 


SELMSK 








t _ _ _ 


T 








1 


1 Hashes BCD of identifier 


1 CRASH 


1 None 
_X 












X 


t 








T 


1 Scans list of attributes following 


lATLSCN 


ICDATPR 










1 identifier 


1 

L _ _ _ 


1 

1 _ 












— f- _ _ _ 


T 








T 


1 Applies factored attributes 


1 CDFATT 
-J. _ _ 


ICDATPR 

_± _ 












T 


T - 








"1 


1 Applies implicit attribute 


1 1 MP ATT 
L _ 


1 None 
1 












T 


T 








"i 


1 Attributes controlling routine 


ICDATPR 


ICDATUO, 


CDAT41, 


CDATU2, 


CDAT4 3, 




1 


1 


ICDAT44, 


CDAT45, 


CDATU8, 


CDATU9, 




1 


1 


ICDAT4A, 


CDAT4B, 


CDAT4C, 


CDAT4D, 




1 


1 


ICDATUF, 


CDAT5U, 


CDAT55, 


CDAT5 6, 




1 


1 


ICDAT57, 


CDAT58, 


CDAT59, 


CDAT6 0, 




1 


1 


ICDAT61, 


CDAT62, 


CDAT63, 


CDAT6 4, 




1 


1 


ICDAT6 9, 


CDAT6A, 


CDATB4, 


C DATE 8 





L X X J 
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Table ELI. Phase EL Routine/Subroutine Directory 

^ ^ 

I Routine/Subroutine | 
|. __„ 1. 



Function 



ATLSCN 



BCDISB 



BCDPR 



CDATPR (EK) 



CDAT4 


(EK) 


C DAT 41 


(EK) 


C DAT 4 2 


(EK) 


CDAT4 3 


(EK) 


CDATUU 


(EK) 


CDAT45 


(EK) 


C DAT 4 6 


(EK) 


CD AT 4 8 


(EK) 


C DAT 4 9 


(EK) 


CDAT4A 


(EK) 


CDAT4B 


(EK) 


CDAT4C 


(EK) 


CDAT4D 


(EK) 


CDAT4F 


(EK) 


C DAT 5 6 


(EK) 


C DAT 5 7 


(EK) 


CDAT58 


(EK) 


C DAT 5 9 


(EK) 


CDAT5A 


(EK) 


C DAT 60 


(EK) 


C DAT 61 


(EK) 


C DAT 6 2 


(EK) 


CDAT63 


(EK) 


CDAT6 4 


(EK) 


CD AT 6 9 


(EK) 


CDAT6A 


(EK) 



Scans the list of attributes following the identifier, 

Checks for multiple declarations, etc. 

Processes BCD of identifier. 

Attribute controlling routine. 

Processes DECIMAL attriiDute. 

Processes BINARY attribute. 

Processes FLOAT attribute. 

Processes FIXED attribute. 

Processes REAL attribute. 

Processes COMPLEX attribute. 

Processes precision attributes. 

Processes VARYING attribute. 

Processes PICTURE attribute. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes FIXED DIMENSIONS attribute. 

Processes LABEL attribute. 

Processes ADJUSTABLE DIMENSIONS attribute. 

Processes USES attribute. 

Processes SETS attribute. 

Processes ENTRY attribute,. 

Processes GENERIC attribute. 

Processes BUILT-IN attribute. 

Processes EXTERNAL attribute. 

Processes INTERNAL attribute. 

Processes AUTOMATIC attribute. 

Processes STATIC attribute. 

Processes CONTROLLED attribute. 

Processes INITIAL attribute. 

Processes LIKE attribute. 
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Table ELI. Phase EL Routine/Subroutine Directory (cont'd) 

Function 



r T" 

I Routine/Subroutine | 



h 



4- 



CDAT6B (EK) 
CDAT6C (EK) 
CDAT6D (EK) 
CDAT6E (EK) 
CDAT88 (EK) 
CDCLSC 
CDFATT (EM) 
CDFLT (EM) 
CDICEN (EM) 
CGENSC (EM) 
CHASH (EM) 
DCIDl 
DCIDPR 
ECHSKP (EK) 
IMPATT (EM) 
INTLZE 
POSTPR 
SCANU (EM) 
SELMSK 
STRPR 
TEMSCN 



Processes DEFINED ATTRIBUTE. 

Processes ALIGNED attributes. 

Processes PACKED attribute. 

Processes PACKED (NONSTRING) attribute. 

Processes POS attribute. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements, 

Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Post-processor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans anead for next level number. 
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Table EP. Phase EP Dictionary Entry III and Call 
r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans for PROCEDURE entries type 1 



ENTRY3 



None 



+- 



Follows chain of ENTRY statement 
entry type 1 entries from a PROCE- 
DURE entry type 1 



EPL40 



None 



Examines all labels belonging to an 
entry type 1, constructing an entry 
type 3, if necessary 



LBPRCC 



None 



•+- 



Follows CALL chain in text making 
dictionary entries for entry points 



EPL290 



None 



■+- 



Examines the first character of an 
identifier and sets a flag indicat- 
ing the range in which it lies 



CDIMAT 



None 



■+ 



Applies default rules 



CDFLT 



None 



Given an identifier calculates its 
offset in the hash table 



CHASH 



None 



Constructs a dictionary entry 



CDICEN 



None 



■ + 



■+ 



Sets address slot to zero or the 
end of the dictionary 



FNDEND 



None 



■ + 



Constructs list of numbers of known 
blocks 



BLDST2 



None 



I Built in function name 

L 



ISCANBF 
.J. 



I None 

-X 
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Table EPl. Phase EP Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h- 



-+■ 



BLDST2 

CDICEN 

CDIMAT 

CDFLT 

CHASH 

ENTRY3 

EPL20 

EPL40 

EPL75 

EPLIOO 

EPL290 

EPL3U0 

EPL360 

EPL600 

FNDEND 

LBPROC 

PHSINT 

PHSMRK 

SCANBF 



Constructs list of numbers of known blocks. 

Constructs dictionary entry. 

Sets flag for default routine. 

Applies default rules. 

Calculates offset in hash table for given BCD. 

Scans ENTRY chain for PROCEDURE statements. 

First entry in entry type 1 chain. 

Scans ENTRY chain for ENTRY statements type 1. 

Return point from LBPROC routine. 

Processes new entry label. 

Scans CALL chain. 

Searches built-in function table for BCD of identifier, 

Blanks out BCD in text. 

Scans the CALL chain. 

Sets address slot for label. 

Processes labels of PROCEDURE or ENTRY statements. 

Initialization of phase. 

Marks later modules as 'wanted' or 'not wanted'. 

Checks for built-in function name. 
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Table EW. Phase EW Dictionary LIKE 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Scans LIKE chain 



EWBEGN 



+ - 



EWCOPY, EWELDM, EWINCH, EWONDM 



Updates hash chain for new entry 



EWHSCN 



None 



Calculates start of structure data 
from start of variable information 



EWVART 



None 



■+- 



+■ 



Changes error entry to base element 



EWCHEN 



None 



4- 



Copies dimension table entry and 
second file statement 



EW2FNT 



EWNVvBK 



Table EWl. Phase EV3 Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



h 



4- 



CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN (EX) 

EWINCH 

EWNOLK 

EWNWBK 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT 
L 



Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened" major structure. 

Updates hash chain for new entry. 

Completes entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 

Copies entry into scratch storage, inserting dimension information. 

Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 
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(Table EY. Phase EY Dictionary ALLOCATE 
r 



T T 

I Main Processing 
Routine 



Statement or Operation Type 



■+- 



+■ 



Subroutines Used 



Scans text for explicitly pointer- | lEMEX 
qualified based variables | 

|. 1. 



EY14 



+- 



Copies dictionary entries for 
explicitly qualified based varia- 
bles 



|EY1U 



HASH, ATPRCC, DICBLD, STRCPY 



+ - 



Second file pointers. Scans ALLO- | lEMEY 
GATE statements 



ATPROC, DICBLD, HASH, STRCPY 



•+- 



Completes copied dictionary entry | ATPROC with 
for an allocated iterr. j second entry 

I point ATPROD 
^ 1. 



MOVEST 



■+- 



Controls ATPROC and ATPRCD routines | STRCPY 
for each member of a structure j 

X . 



ATPROC, ATPROD 



•Table EYl. Phase EY Routine/Subroutine Directory 



r T" 

1 Routine/Subroutine | 

I-- 



Function 



ATPROC/ATPROD (EZ) 

DICBLD 

EY16 

EY17 

EY21 

HASH 

lEMEX 

EY14 

lEMEY 

MOVEST (EZ) 

STRCPY 



Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry. 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans text for explicitly pointer-qualified variables. 

Copies dictionary entries for explicitly qualified based variables. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 

Copies second file statement and associated dictionary entry. 

Controls ATPROC and ATPROD for each member of structure. 
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Table FA. Phase FA Dictionary Context 

r T T 

Main Processing 
Statement or Operation Type 



+- 



Routine 



+• 



Subroutines Used 



Scans text 



CE30 



+- 



CENDTS, CETRAN 



eorders subscripts; niakes dic- 
tionary entry for file and event 
variables 



CEID 



CESCN 



+ ■ 



Identifies keywords 



CEKYWD 



CEKEND, CEKEOE, CEKEOP, CEKON, 
CEKPRC, CEKSND 



Scans dictionary 



CESCN 



4. 



CESTUC, CEYES, CFPDER, CFPDR2, 
CHASH, CE3XX 



Makes dictionary entry for varia- 
bles 
^ _ 



CFPDR2 



CDFLT, CDICEN, CDIMAT, CEONCK 



■+- 



Scans dictionary entry for con- 
stants and makes new entry, if 
necessary. 



CECON 



CHASH 



•+- 



Scans PICTURE chain entry and makes 
new entry, if necessary. 



CEPICT 



None 
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Table FAl. Phase FA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



■+- 



CDFLT 

CDICEN 

CDIMAT 

CEBNK 

CECON (FB) 

CEDWAX 

CEID 

CEINT 

CEISUB 

CEKCEN 

CEKDCL 

CEKEND 

CEKEOB 

CEKEOP 

CEKEY 

CEKIDO 

CEKON 

CEKPFR 

CEKPRC 

CEKSN 

CEKSND 

CEKYWD 

CELP 

CENDTS 

CEONCK 

CEPFDR 

CEPICT (FB) 

CERP 

CESCN 

CESMCL 

CESTUC 



Deterir.ines default attributes for identifier. j 

I 
Constructs default dictionary entry for identifier. | 

I 
Deterinines default scale for identifier, | 

I 

Transfer point for zero or blank. | 

I 

Scans dictionary entry for constants. | 

I 

Subscript prime text marker. | 

I 

Reorders subscripts and makes dictionary entries for files and event] 
variables. | 

I 
Transfer point for constant routine. | 

I 

Transfer point for iSUB. | 

I 

Transfer point for CALL to get over chain. | 

I 

Removes SN from DECLARE statements. | 

I 
Processes END keyword. | 

I 
Processes end-of-block marker. | 

Handles end-of-program marker, or start of second file. j 

II 
Transfer point for keyword. || 

II 
Transfer point for iterative DO. || 

II 
Processes ON keyword. || 

II 
Transfer point for picture format item. ]| 

I 
Processes PROCEDURE keyword. | 

I 
Moves SN, etc., to output stream. ( 

Processes start of second file statement. j 

I 
Identifies keywords. I 

I 
Transfer point for left parenthesis. j 

I 
End of text block in output file routine. | 

I 
Makes entry for programmier-named ON condition. | 

I 
Makes dictionary entry for variables. | 

1 
Scans picture chain entry. | 

I 

Transfer point for right parenthesis. | 

I 
Scans dictionary. | 

I 

Handles semicolon. | 

I 

Points at next entry in structure chain. | 
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Table FAl. Phase FA Routine/Subroutine Directory (cont'd) 

Function 



r T" 

Routine/Subroutine | 



■+- 



CETRAN 

CEYES 

CE2L 

CE30 

CE31 

CE32 

CE300 

CE3XX 

CFPDER (FB) 

CFPDR2 (FB) 

CHASH 

CHASHC 

lEMFA 



Translates keyword into transfer instruction. 

Compares structure levels. 

Transfer point for second level iriarker. 

Controlling scan of text. 

Tests for end of block. 

Moves one byte to output stream. 

Switches to appropriate routine. 

Compares identifier in text with entry in dictionary, 

Makes dictionary entry for ordinary identifier. 

Makes dictionary for formal parameter. 

Hashes identifier. 

Hashes constant. 

Initializes phase. 



L. 



Table FE. Phase FE Dictionary BCD to Dictionary Reference 
r ■ • 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Scans text 



CE30 



+- 



+- 



CENDTS, CETRAN 



Scans dictionary 



CESCN 



CESTUC, CEYES, CFPDER, CFPDR2, 
CHASH, CE3XX 



■+- 



Checks for array, function, or 
pseudo-variable if left parenthesis 
is found 



CELP 



CEFNCT 



•+- 



Tests for end of text block 



CENDTS 



■+- 



+ ■ 



CEKEND, CEKIDO, CEKPRC 



Identifies keywords 



CEKYWD 



4- 



+ ■ 



CEKEOE, CEKEOP 



Makes dictionary entry 



None 



CDFLT, CDICEN, CDIMAT 



Section 3: Charts and Routine Directories 143 



Table FEl. Phase FE Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 

I- 



Function 



■+- 



CDFLT 

CDICEN 

CDIMAT 

CEFNCT 

CEKEND 

CEKEOB 

CEKEOP 

CEKIDO 

CEKPRC 

CEKYWD 

CELP 

CENDTS 

CESCN 

CESTUC 

CETRAN 

CEYES 

CE30 

CE3XX 

CFDICN (FF) 

CFPDER 

CFPDR2 

CRASH 



Applies default rules. 

Constructs dictionary entry. 

Sets flag for default routine. 

Tests validity of function reference in text. 

Processes END keyword. 

Processes end-of-block marker. 

Processes end-of -program marker, or start of second file. 

Processes iterative DO keyword. 

Processes PROCEDURE keyword. 

Identifies keyword. 

Checks for array, function, or pseudc-variable if left parenthesis 
is found. 

Tests for end of text block in output file. 

Scans dictionary. 

Points at next entry in structure chain. 

Translates keyword into transfer instruction 

Coir.pares structure levels. 

Controlling scan of text. 

Compares identifier in text with dictionary entry. 

Makes dictionary entry. 

Makes dictionary entry for statement with ordinary identifiers. 

Makes dictionary entry for formal parameters. 

Calculates offset in hash table for qiven BCD. 



Table FI . Phase FI Dictionary Checking 



T T 

I Main Processing 
I Routine 
H- 



statement or Operation Type 



Subroutines Used 



Scans text 



jCESTRT 

-f 

ICEKEYW 

■+ 



CEKEYW 



+ ■ 



I Identifies keywords 
j. 



+- 



CEKEOB, CEKEOP, CEKIDO, CEKSN 



I Checks GOTO statement references JCEGOTO 
^ 1 

I Converts GOTO to GOOB, if necessary | CEGOB 
1- ^ 1 



None 



None 



I Checks file references jCEFILE 
j. 1 

[Checks data list items for validity | CEDTCK 

L X 



None 



■ + ■ 



None 
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Table FIl. Phase FI Routine/Subroutine Directory 



I Routine/Subroutine | 



Function 



h 



-+- 



CECiVlBK 

CEDDOL 

CEDOND 

CEDREF 

CEDTCK 

CEFILE 

CEFNMK 

CEGOB 

CEGOTO 

CEISUB 

CEJUMP 

CEKEND 

CEKEOB 

CEKEOP 

CEKEYW 

CEKIDO 

CEKON 

CEKSN 

CELRCT/CERPCT 

CEOOPS 

CEPRBG 

CERFMT 

CESMCL 

CESTRT 



Tests value of previous second level marker. 

Processes function names used as control variables for DO groups 

Processes end of iterative DO groups. 

Tests whether dictionary reference needs to be checked. 

Checks data list items for validity. 

Checks file references. 

Processes function markers. 

Converts GOTO to GOOB, if necessary. 

Checks GOTO statement references. 

Processes iSUBs. 

Bumps scan pointer over dictionary reference. 

Processes END statements. 

Processes end-of-block marker. 

Processes end-of -program marker. 

Identifies keywords. 

Processes iterative DO keyword. 

Processes ON statements. 

Processes statement number. 

Process left and right parentheses. 

Checks validity of keywords in the text. 

Processes PROCEDURE and BEGIN statements. 

Processes remote format references. 

Processes semicolons. 

Controlling scan of text. 
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Table FK. Phase FK Dictionary Attribute 



T T" 

|Main ProcessingI 
1 Routine | 
+- 



Statement or Operation Type 



Subroutines Used 



4- 



I Scans attributes area for SETS 

I lists 

h 



FOIA 



I None 
I 
4- 



I Scans SETS list 

^ 

I Processes constants 



F02 



4- 



None 

4 

I None 
4 

ICESTUC, CE3XX, CRASH 
.X 



ICONPRO 



4- 



Processes identifiers 



CESCN 



Table FKl. Phase FK Routine/Subroutine Directory 



P ^. 

I Routine/Subroutine | 



Function 



CEIDLP 

CENQUL 

CESCN 

CESTUC 

CE3XX 

CRASH 

CMPERR 

CONPA 

CONPRO 

ENDFO 

F0ERR2 

FOIA 

F02 

F04 

GETSCR 



Scans qualified name. 

Processes unqualified name. 

Processes identifier. 

Finds address of next structure in chain. 

Compares current BCD with BCD in hash chain. 

Calculates offset in hash table for given BCD, 

Provides terminal error action. 

Inserts constant in ordered stack. 

Processes constants. 

Releases control. 

Diagnoses constant greater than 255. 

Scans attribute tidy-up area. 

Scans SETS list. 

Comipletes SETS dictionary entry. 

Obtains scratch storage. 
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Table FO. Phase FO Dictionary ON 

P y. 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans input text for ON, SIGNAL, 
and REVERT statements 
|. 

Moves second file from input text 
block to output text block 



FKMVIT 



BEFTRN, CENDTS, QP 



F2 



CENLTS, BEFTRN 



•+- 



Makes dictionary entries for ON- 
conditions found in ON, SIGNAL, and 
REVERT statements 



FKDCEN 



LABCD 



+ - 



Examines BCD of file entries ref- 
erenced in ON, SIGNAL, and REVERT 
statements; scans previous entries 
for ON conditions 



MVSIG 



CENDTS 



|. _ + 

I Processes CHECK and NOCHECK list. | BEFCHL 
|. +. 



+- 



CENDTS, LAECD 



Creates dictionary entries for 
condition prefixes 



NOMOVE 



QP 



Table FOl. Phase FO Routine/Subroutine Directory 



^ . . y. 

I Routine/Subroutine | 



Function 



I- 

BEFCHL 

BEFTRN 

CENDTS 
FKDCEN 

FKMVIT 
FKNOCK 
FKPROC 
FPOlO (FP) 

F2 
LABCD 

MVSIG 

NOMOVE (FP) 

Q3 

QP 

R8 



•+- 



Processes CHECK and NOCHECK list. 

Replaces statements containing dummy dictionary references by error 
statements, and generates error message. 

Requests a new text block for output. 

Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
REVERT statements. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Processes CHECK and NOCHECK lists. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Chains initial label statements and makes second file dictionary 
entries for each label array initialized in this way. 

Moves second file from input text block to output text block. 

Creates a dictionary entry for each label constant and each entry 
label mentioned in a CHECK list. 

Examines BCD of file entries referenced in CN, SIGNAL, and REVERT 
statements; scans previous entries for ON conditions. 

Creates dictionary entry for condition prefix. 

Processes condition prefixes changed in current block. 

Determines which condition prefixes require dictionary entries. 

Moves statement to output buffer. 
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Table FQ. Phase FQ Dictionary Picture Processor 

r T- 



Statement or Operation Type 



+- 



Main Processing 
Routine 



Subroutines Used 



Controls scan of PICTURE chain; 
initializes 



CYBR3 



CYEK, CYFIND, CYTABL 



Picture character 9 



CYNINE 



None 



Picture characters S, $, +, - 



CYSDPM 



None 



+- 



Picture character V 



CYV 



None 



Picture character E 



CYE 



CYC21 



Picture character K 



CYK 



CYC 21 



+ • 



Picture characters C,R,D,B. 



CYCRDB 



None 



I- 



Picture characters 1,2,3 



CYOTT 



None 



Picture character P 



CYP 



None 



+- 



Picture character Z 



CYZ 



None 



■ + ■ 



Picture character + 



CYAST 



None 



Picture character Y 



CYY 



None 



■ + ■ 



Picture character G 



CYG 



None 



■ + 



■+- 



Picture characters 6, 7, 8, H 



CYSSEH 



None 



■ + 



Picture character M 



CYSTM 



None 



Picture character F 



CYF 



None 



■ + 



■ + 



Converts integer constants to scale 
factor 



CYC 9 7 



CYCONV 



■+■ 



[Calculates scale factor 

L 



CYFNT 



None 
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Table FQl. Phase .FQ Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



I- 



■+- 



CYAST 

CYBR2 

CYBR3 

CYCONV 

CYCPBS 

CYCRDB 

CYC21 

CYC97 

CYE 

CYEK 

CYENDD 

CYF 

CYFIND 

CYFNT 

CYG 

CYK 

CYNINE 

CYOTT 

CYP 

CYSDPIXI 

CYSS 

CYSSEH 

CYSTM 

CYTABL 

CYV 

CYY 

CYZ 



Processes picture character *. 

Identifies picture character. 

Controlling scan of PICTURE chain. 

Converts integer constant to scale factor. 

Processes picture characters slash (/) , comina ( , ) , point (.), and E. 

Processes picture characters CR, DB. 

Adjusts data to terminate picture before illegal character. 

Converts integer constant to scale factor. 

Processes picture character E. 

Completes entry for correct picture. 

Releases control at end of picture chain. 

Processes picture character F. 

Obtains code for next character in picture. 

Calculates scale factor. 

Processes picture character G. 

Processes picture character K. 

Processes picture character 9. 

Processes picture characters 1,2,3. 

Processes picture character P. 

Processes picture characters S, $, +, -. 

Processes picture characters 6,7. 

Processes picture characters 8,H. 

Processes picture character M. 

Code table for picture characters. 

Processes picture character V. 

Processes picture character Y. 

Processes picture character Z. 
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Table FT. Phase FT Dictionary Scan 
r • T- 



Stateinent or Operation Type 



Main Processing 
Routine 



+- 



Subroutines Used 



Scans second file 



ACl 



None 



+- 



Scans dictionary 



Bl 



None 



I- 



Data variables 



DATVi^R 



None 



+- 



+■ 



Event or label variables 



EVLABV 



None 



+- 



+■ 



Dimension attributes 



FO 



None 



Scans AUTOMATIC chain 



G2 



None 



+ ■ 



Scans STATIC chain 



G3 



None 



+- 



Scans CONTROLLED chain 



GEl 



None 



+- 



Sets dope vector required bit 



PIA 



None 



ENTRY type 1 entries 



QA4 



None 



ENTRY type 2 entries 



QA3 



PROPIC 



ENTRY type 3 entries 



QA2 



None 



ENTRY type 4 entries 



QX 



None 



ENTRY type 5 and 6 entries 



QAl 



PROPIC 



Constants 



CONST 



None 



4- 



structures 



STRUCT 



AJDMRT, MKDMTB, MVTXT 
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Table FTl. Phase FT Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



I-- 



-+■ 



ACl 
AC2 
AF3 
AJDMRT 

Bl 

BIA 

CONST 

DATVAR 

EVLABV 

FO 

FULIN 

GEl 

G2 

G3 

MKDMTB 

MVTXT 

PRO PIC 

PIA 

QAl 

QA2 

QA3 

QAU 

QX 

STRUCT 

TRVECT 



Scans second file. 

Detects second file statement marker. 

Points relevant dictionary entry at statement. 

Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting togeth- 
er all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

Extracts precision data from picture tables. 

Sets 'dope vector required' bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type 4 entries. 

Processes structures. 

Transfer vector for appropriate chaining routine. 
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•Table FV. Phase FV Dictionary Second File Merge 
r 



T T 

(Main Processing 
I Routine 

+ 



Statement or Operation Type 



1 

Reverses second file pointers; jIEMFV 
scans text for block heading state- j 
ments; allocates statements and | 
references to dynamically defined | 
data 



Subroutines Used 



DATCPY, DEFMOV, DEFTST, F2M0VE, 
MOVE 



+ 

Examines ADF references in second |DEFCOM 
file; completes defined item die- | 
tionary entry | 



+- 



None 



1 

Detects dictionary references which] DEFTST 
refer to dynamically defined data j 



None 



1 

Examines dictionary references and | DATCPY 
moves any associated second file j 
statements to the output string | 



+- 



F2M0VE, MOVE 



Inserts dictionary reference of | FVPTR 
pointer in associated based varia- j 
ble entry | 



None 



■+- 



Processes adjustable extents on 
based arrays 



FVADV 



None 



Processes adjustable lengths on 
based strings 



FVSDV 



None 



152 



• Teible FVl. Phase FV Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Functicn 



DATCPY 

DEFCOM (FW) 

DEFMOV 
DEFTST 

FVO 
FV9 
FVl 
FVl 6 
FVl 8 
FVl 9 
FV2 
E^V3 4 
FVPTR 
FVADV 
FVSDV 
F 2 MOVE 
lEMFV 
MOVE 



Moves second file statements associated with dictionary reference to 
output string. 

Examines ADF refesences in second file; completes defined item dic- 
tionary entry. 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 
data. 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Inserts D.R. of pointer in associated based variable entrt. 

Processes adjustable extents on based array. 

Processes adjustable lengths on based strings. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

Moves text from input string to output string. 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 

r " 



T T 

Main Processing 
Routine 
+■ 



Statement or Operation Type 



Subroutines Used 



Scans STATIC chain for all items 



FXOOOO 



FXOOlO 



+- 



Scans PROCEDURE-BEGIN chain 



FXOlOO 



■+- 



FXOOlO, FXOlOl, FX0105, FX0120 



Scans CONTROLLED chain for non- 
parameter DECLARED, CONTROLLED 
dictionary entries 



FX0170 



None 



+- 



+■ 



Scans parameter list from PROCEDURE 
and ENTRY statements 



FXOlOl 



FXOOlO 



■+- 



Sorts BCD of variables and creates 
entries in scratch text storage 



FXOOlO 



None 



•+- 



+- 



Scans circular chain of ENTRY 
statement dictionary entries asso- 
ciated with a particular PROCEDURE 
statement 



FX0105 



FXOlOl 



Scans AUTOMATIC chain associated 
with particular PROCEDURE or BEGIN 
block 



FX0120 



FXOOlO 



+- 



Prints heading line for tables 
according to options specified 



FXHD 



ATTMOV 



+ ■ 



Scans sorted chain of identifiers 



FXPRNT 



FX0299 



Determines attributes of a given 
identifier if the ATR option is 
specified 



FX0299 



ATTMOV, FXBCD, FXDCLN , FXEND, 
REFMOV 



4- 



Scans the chain of references for a 
given identifier (if XREF is 
specified) and prints their, in 
external decimal form 



REFMOV 



FXDCLN 



■+■ 



+ - 



Converts EBCDIC of particular 
attribute to required external form 
and moves it to print area 



ATTMOV 



None 



-+ 



-I- 



Prints BCD of identifier having 
converted it from internal form to 
external form 



FXBCD 



None 



Converts an internal binary number 
to external decimal form and moves 
it to print buffer 



FXDCLN 



None 



Frees all scratch text storage and 
rel.^ases control to next phase 



FXEND 



None 
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Table FXl. Phase FX Routine/Subroutine Directory 



r • T- 

Routine/Subroutine | 



Function 



ATTMOV (FY) (Converts EBCDIC data to required fornn, moves data to print area. 

FXBCD (FY) JMoves identifier BCD to print area, determines options to be print- 
led. 

FXDCLN (FY) | Converts binary number to external BCD, moves it to print area. 

FXEND (FY) [Frees scratch storage, releases modules, releases control. 

FXHD (FY) I Prints heading line for table according to options specified, 

FXPRNT (FY) I Scans sorted chain of identifiers. 

FXOOOO I Scans STATIC chain. 

FXOOlO I Sorts BCD of variables and creates entry in text for each item. 

FX0030 I Tests for end of STATIC chain. 

FXOlOO I Scans PROCEDURE-BEGIN chain. 

FXOlOl I Scans parameter list from PROCEDURE and ENTRY statements. 

FX0105 I Scans circular chain of ENTRY statement dictionary entries associat- 

I ed with a particular PROCEDURE statemient. 

FX0120 I Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN 

j block. 

FX0170 I Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED dic- 

I tionary entries. 

FX0250 I Scans text, making chain of references to each dictioary entry. 

FX0299 I Determines attributes of a given identifier if the ATR option is 

I specified. 

REFMOV (FY) j Moves the references to an identifier to the print buffer and 
I prints. 
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:hart 0^ . Pretranslator Logical Phase Flowchart 



• Bl* 



SI *, **»**f\2********** 

.* *, •DCBS GA* 

.♦ FILE *. YES «_»_*_«_♦_•-«_«_♦ 

*. OR OPEN .* X* CREATE * 

♦.CONSTANT .* • DCBS AND 0C9S ♦ 

*, .* « « 

* NO 

Ix,... ..* 

X 

• *• 

CI *. **tm*c? ********** 

,* I/O *. *I/0 MOD GB* 

.♦STMNTS AND *. YES «_»_♦_«_»_«_•_♦_♦ 

♦. 2ND LEVEL .• X* MODIFY ♦ 

*. MARKERS .* 'I/O PARAMETERS ♦ 

*, ,» * » 

* NO . 

Ix ..* 

X 

• *. 

Dl *. ••***[)2*«*«****** 

,* ANY *. ♦MATCHl GK* 

.* FUNCTION *. YES ♦_♦_»_»_♦_•_»_•_♦ 

*. REFERENCES .* X* CHECK * 

*.0R OPT«I .♦ • PARAMETER * 

*, •• ♦ MATCHING * 

* NO . 



E2 *. 
.* ANY «. 

NO .* FUNCTION 
,..*. REFERENCES 



• on* 

«-•-•-♦-♦-♦-♦-•-• 

• PRE-PROCESSOR *. 

• FOR GP * 



***«*P3*********« 
• MATCH2 GP* 

4<-*-«-*-*-«-*-4<-* 



****•****••*••«** 



ANY 
CHECK 
LISTS 



*m***G2********** 
♦CHECK LIST GU^ 
«-•-«-*-♦-♦-•-•-* 
<♦ PROCEED CHECK ♦ 

♦ CnNDITION ♦ 

♦ STMNTS * 



,♦ STRUCT ♦. YES 
, ASSIGNMENTS ...... 

♦OR EXPRFSS-^ 
♦ .IONS .♦ 



♦STRUCTS HF* 

*-•-«-♦-♦-*-♦-«-« 
<♦ PROCESS ♦ 

♦ STRUCTURE * 

♦ ASSIGNMENTS « 
«••♦♦♦**♦♦*♦♦♦♦♦♦ 



JI 



♦. 



.♦ ARRAY ♦. YFS 
♦. ASSIGNMENTS ...... 

♦OR EXPRESS-* 
♦.IONS .♦ 

♦. .* 
♦ NO 



, X^ 



♦ ARRAYS HK* 
*- *-•- ♦- *-•- ♦-♦- * 

PROCESS * 

• ARRAY ♦ 

* ASSIGNMENTS ♦ 



.♦ ANY ♦ 

*.ISUB DEFINED 

*. ITFMS .♦ 



,X* PROCESS ITFMS * 

♦ DEFINED ♦ 

♦ USING isuqs * 



***** 
*05 * 
♦ Al* 



***** 
«r s ♦ 
* Al* 
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Chart GA. Phase GA Overall Lcgic Diagram 



***** 

♦GA * 
* Al» 



♦ INITIALIZATION * 

♦ * 

♦ ♦ 

*:*******«***•«*«* 



„* END OF ♦. 
♦ „ STATIC CHAIN . 

♦• •♦ 



***** 
*GB * 
* Al* 



*****C1 ********** 

* * 

* GET NEXT * 

* ENTRY IN ♦ 

* STATIC CHAIN * 

* * 
***************** 



FILE 

CONSTANT 

♦. .* 



ILUl'^ X 

«****A3******«*** 

* FILENAME TO * 
*SKELfTON OCLCB * 
•CHANGE SVSPRINT* 

* TO IHESPRT ♦ 

* * 
*«***«*********y* 



♦• •♦ 

*. •♦ 
* YES 



IL'UlV 

*«***C 3********** 



* CONTROL BLOCK • 

• * 

••*•**•*«««**«*** 



***************** 



* GET ENVMNT * 

* STRING *. 

* (MAY BE NULL) * 

* * 
«*****«**• ******* 



r* IS ♦ 

COBOL IN 
ENVMNT 
r STRING 



****^F<; ********** 

* * 

*SET COBOL FLAG * 
,X* ON IN ATTRIR • 

* ENTRY ♦ 

* * 
****«•***•****•** 



♦ CHECK ATTRIBS ♦ 

• AND MAKE OPEN ♦ 

♦ CONTROL BLOCK * 

* * 

***************** 



IHEENVf . 
I LOU 5 X 

«****p 3 ********** 

* * 
*CHECK AND PLACE* 

* IN SKELETON ♦ 

* OCLCB ♦ 

* * 
***************** 



*****G1 **♦♦****** 

* MAKE niCT * 

* ENTRY AND ♦ 
, * CHAIN FROM * 

* STATIC ENTRY * 

* * 
***************** 



Section 3: Charts and Routine Directories 



157 



:hart 3B. Phase 3B Overall Logic Diagram 



*****A1 ********** 

* ♦ 

* INITIALIZE * 

* TEXT POINTERS * 

* LOAD lEHGJ * 

* * 
****♦****•**•♦♦*♦ 

**** 

* * 

* Bl » 

* * 
**** 

X 
****«B1«********4[ 

* * 

* * 

* SCAN TEXT *. 

* * 

* * 

X 

*«** 



B3 *. 

*" LOCATE 
STATEMENT 

*, ^* 

*• . * 
• YES 



lEAO 
ATEMENT 



* WRITE *. 
OR REWRITE . 

♦ .STATEMENT,* 



AFORMT 

♦••♦♦C7 ♦»•♦♦♦♦♦** 

* FORLST * 
*-*-«-*-*-«-*-•-* 

,...* SCANS FORMAT * 

* LIST (SEE F3) • 

* • 



(>•••••* 


* 


rOBQL 


FILE 






*, 


,* 






*. 


.* 






• VES 



*****[)!********** 
•SCAN STATEMENT * 

* SKIPPING DATA * 
*SPEClFICATinNS *X. 

* TRANSMITTING * 

* OTHER OPTIONS * 



.* GFT OR *. 

PUT .*X, 

*. STATEMENT.* 



**** 

• * 

• 02 * 

• * 
***« 

***• 

*. NO * 4 

.*.... X* Bl * 



*****n3********** 

* DELETE * 

*-*-*-*-*-•-*-*-• 

• DELFTF • 

• STATFMFNT * 

* « 
***************** 



COBOL FILE 



*«i***r)'»********** 

* MAP/COPY * 
*-*-*-*-*-•-*-*-* 

* COMPARE *, 
•STRUCTURES(MAP>* 

* COPY INSERT * 



* Dl * 

* 4 
**** 



COPOL FILF 



*****Di; *««**•«*•* 

* WRITF * 
*-*-*-*-*-*-*-*-* 

* COMPARE PL/I * 
♦AND COBOL MAPS * 
•INSERT BUY/SFLL* 
***************** 



X 
***** 
*GK ♦ 



*****P1 •«*«****** 

* * 

* RETURN TO * 
K* SCAN FOR * 

♦SKIPPED OPTIONS* 

* ♦ 



•**«* 02 ********** 

* FORLST * 

*-*-*-«-*-«-«-«-« 

. X* SCANS * 



**** 

* 4 

« F3 4 

* « 
**** 



FORLST 



'*****F 3********** 



**♦* 

* 4 

* G3 *. X, 

* ■■ 
**** 

• *• 

G3 *• 

• * *<. 

.* ITERATION 

«. FACTOR 

♦. o 

*• .* 



*****F 5* ********* 

* ♦ 

* OUTPUT AND * 

* RETURN * 

* (SEE C?l ♦ 

* * 
***************** 



■ * END 
,.X*. OF FORMAT 
*. LISTS - 

*= ■. ♦ 



DATA *. YES 
EDIT OR •*...• 
LIST .* 



**** 

* * 

* FI *X. 



• DOES 

IT CONTAIN 
► . I TOO 



• * *• 

NO .* END *. 

...*.0F STATEMENT .* 



*, 



,* 



♦*»* * YES 

* * • 

* Fl * 

* » X 
**** **** 

* * 

* Bl * 

* * 
**** 



LLDOIT 



«*«««J2 ********** 

* OUTPUT PRIOR * 

* TEXT AND END * 
*SCAN TO THE I. * 

* REPLACE IT BY * 

* SFMI -COLON * 



MKROOM X 

* •««*K 2 ********** 

* MAKE ROOM * 
»IN nUTOUT TFXT « 

* AND INSFRT *. 

* END STATEMENT • 

* ♦ 

***«*«****«4***** 



«*«*«H3********** 

• * 

* OUTPUT BUY * 

* AND TEMP * 
•I TOO STATEMENTS* 

• ■ * 



• *• 



J3 

■ DO. , 
LEF1 
„..ENTK>. 
FOLLOW 



.* DOES *, 

» LEFT * 

PARENTHESIS 



•****J^********** 

• * 

* OUTPUT • 
X* FOLLOWING *. 

* FORMAT ITEM * 

• * 



*****K3 ********** 

* STACK * 

* DICTIONARY * 

* REFERENCE *. 

* OF TFMP * 

* * 
***♦♦**♦*♦♦**♦*** 



•****h;********** 

* UNSTACK * 

* DICTIONARY * 

* REFPRENCF * 

* OF TCMP * 

* * 
***************** 



***** J 5* ********* 

* * 

* OIJTPIJT AND * 
•oX* SELL TFMP * 

* STATEMENTS * 

* * 
***************** 



**** 

* 4 

* G3 4 

* 4 
♦ *** 



, X* F3 * 
« * 

**** 
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:hart 3K. Phase SK Overall Logic Diagcam 



♦♦•♦*A^ **♦**♦♦♦*♦ 

« * 

* initiali;f • 

* tfxt pointers ♦ 

* ETr. ♦ 

* • 

**** * 

* * It 

* 83 *. X. 

* * < ' 
• *** . 

^4SC^N X 

* SCAN TEXTf ♦ 

* NOTING • 
. . X* BLOCK LtrVFL ♦ 

* AND COUNT • 

« ♦ 



«4<«4>*C )*«««***«*« 


BAPVM ,», 

C? *, 


• SFT 'BUILT- * 

• IN fiENFRIC * 

* BIT IN *X.o 

♦ TFBVTr, * 


,« IS 

vcs .* PSFijon- 

.,.,,«, VARIAPLr 
*, 'SUBSTR' 



vrs r* PSEuoo- 



•*««******« t***** 



• TFBVTE FOR • 
fGENEPIC ANO/OR *y 

• BI(TLT-!N * 

• FUNCTIONS • 



, X*PUSH nOHN STACK* 
* * 

« * 



BAFST X 

**«**F2 ********** 
*$ET POINTERS TO* 
*PARAMFTER L[ST * 

• ANO SFTS LIST ♦ 
♦FOR NON-BUILT- • 

* IN FUNCTIONS * 



YES .* FUNCTION 
,.„.*. MARKER 
*. FOUND 

*. 0* 



• *• 




BASTOP 


F? *. 




*****F4********** 


,*, 




* « 


STOP *. 


rES 


* OUTPUT * 
.,.X* ARfiUMENT * 


MARKER 


♦.■.. 


FOItNO . * 




• • 


t, .* 




* * 


*. .* 




**••**•*•**«****• 


* NO 




**«* I 
* * c 


• 




• F* *oX. 

* * e 


X 




**•* X 


.*. 




BAOELM .*. 


F? *, 




Ft *. 


' *0 




r* IS •< 


END OF *, 


NO 


,* ITS *o 


TEXT 


*■>,., 


*- OELMITFR A .* 

*. COMMA ,* 


,* 


■: 



*****E5 ••**•***** 

• * 
» OUTPUT ♦ 

(♦ eno-lFst * 

» MARKER ♦ 

* * 

***************** 



•****GI ********** 



**««***««««**4i*** 



9ALPQ .*, 

G2 
.* DOES 
NO .* « 

FOLLOW 
MARKER 



*. 



*. 



, * 



,* 
YES 



*««•**«***••**«*• 



**«**G^ ********** 

* CHECK ARGNO * 

* AGAINST OJCT * 

* ENTRY or * 

* FUNCTION. • 

* POP UP STACK * 
***************** 



HACALO X 

***««H?* ********* 

* ARGNO - 1 * 

* OUTPUT PRIOR * 

* TFXT, TEBYTF, * 

* STMT NUMBER, * 
*LEVFL AND COUNT* 
••**««***•******* 



BALOOP X 

***** J ;>*««*««•••* 
•OUTPUT ARGUMENT* 

* MARKER, OfCT * 

* RFF OF PARA ♦ 
« METER, ANO « 
*SETS CODE BYTE * 
•*«*•**•***••*•*« 



BARGFN 

**i|i**Kl ********** 

* OUTPUT WARNINC, » 

* MESSAGE SKIP 

* TO END OF 

* ARGUMENT * 

* * 
***************** 



*X, 



.,*IS ARC *c 

YES ■,*A FUNCTION < 
....*,. MITH NO 

♦, ARGUMENTS.* 



BANORM 

*****K} ********** 
♦SFT STOP MARKER* 
* AT END OF * 
■ . : X^ ARGUMENT IN ♦„ 
« SIXJRCF TFXT * 
« ♦ 

***************** 



****K4*««****««* 

* 

(SCAN FROM * 

START OF ■«, 

ARGUMENT) • 

* 

**************** 
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;hart 3P. Phase GP Overall Logic Diagram 



* • 

* A3 ♦ 

* * 



EXSCANiMl .*. 



***** 
*GP • 
* Bl* 







«•♦» 






* * 






♦ H3 * 






* * 






• «** 






X 












. VFS 






• *• 






A5 *, 






• » 




* 


IS 


X* 




ARGUMENT 
SCALAR 




• 



ESliES? X 

*****f) 1 ********** 

* * 

* SCAN TEXT ♦ 
..X* FOR ARGUMENT *X 

* LIST ♦ 

* * 
***************** 



.* *, 

.♦ END *. YES 

OF TEXT .*.... 
*, , * 



EX36t M24 

*****B2 **«««**•** 

* CREATE A * 

* CHAMELEON 
,.,.* AGGREGATE 

* DUMMY 



***************** 



♦X. 



NO .* IS 
• ..*. ARGUMENT 

♦ o SCALAR 



**** 

* * 
» E3 ♦ 

* 4 

*•** 



NO .* PAR AND ♦. 
...*.ARR AGGREGATF.* 
*STRUCTUSES.* 
*, MATCH,* 



**** 

* 4 

» HI * 

* 4 
***• 



***** 

*GU • 
* Al* 



01 *. 

• •IS •. 

.♦ ITEM *. 

♦. BUILT-IN . 

♦ .FUNCTION .* 



**** 

* * 

* J3 * 

* * 

**** 



.♦ IS *. 

. ARGUMENT . 

♦A CONSTANT.* 

*. •* 



YES .* IS *. N 

X..*. ARGUMENT .*. 
♦.CONSTANT .* 



Fl *. 
• ♦ ♦ 

.♦ BUILT-IN 
. FUNCTION 



.♦ IS *, YES 

*. ARGUMENT .*.,., 
♦EXPRESSION. ♦ 



♦ E3 ♦.X. 

♦ ♦ . 

**•* , 
X 
*****E3********«* 

* ♦ 

* CREATE SCALAR * 

• CHAMELEON ♦. 

♦ DUMMY ♦ 

* * 
**••«•*•********* 



*•** 

* • 
, X* Bl * 

* * 
**** 



*«*t*ni^********^^ 

♦ CREATE SCALAR ♦ 

♦ DUMMY OF * 
<* PARAMETER ♦ 

* TYPE • 

* * 
*****««****••«•** 



**** 
* * 

"> Bl * 
» * 

• *** 



NO .* PARAMETER *, 
...♦. DESCRIPTION .♦ 

♦• >♦ 

♦. .♦ 



.♦IS ♦. 




* * 


NJ .♦ ARGUMENT «. 


,* 


PARAMETER 


X..^. AN ENTRY .♦ 


*, 


SCALAR 


♦. .* 


*, 




♦. •♦ 




♦. .* 


♦. .♦ 




♦. •♦ 


♦ YES 




♦ YES 


♦ ♦♦♦ , 






♦ * ■ 




, 


♦ HI ♦.X. 




, 


♦ ♦ . 






♦ ♦♦♦ , 




X 


X 




.♦. 


***«*H1 ********** 




H2 ♦. 


* ♦ 




♦ ♦ 


* FRROR * 


NO .« 


ARGUMENT 


...♦ MESSAGE ♦X... 


,,,,,*, 


SCALAR 


♦ ♦ 


*, 




♦ ♦ 




♦. .♦ 


***************** 




♦. .♦ 
♦ YES 



"sgiH« 



G^ 



.♦ 
,♦ 

YES 



.♦ IS ♦. « ARGUMENT * 

.♦ ARGUMENT ♦. N3 •! S A RARflALLY ♦ 



**•••(;;««*•**«*** 



. * ARG ANO *. 
. PAR SAME , 
*. DATA TYPE.* 



*****K2 ********** 



***************** 



**** . 
M12.M14 X 

4i«*«*H3*********i 



**************** 

**** I 

♦ ♦ . 

♦ J3 ♦.X. 

♦ ♦ • 
♦ ♦♦♦ , 

C0PYPT.M13 X 

*«***J3**«******i 

♦ CREATE AN 
AGGREGATE 



DUMMY OF 
-■-XETEP 
DATA TYPE 



PARAH 
• DATA . _ 
**************** 



CHECKSfM^^.*. 



► AGGREGATE 
STRUCTURES 
*c MATCH . 



*•*•*••••*«•♦**** 



CHCKSliBZ .♦. 

HJ ♦. 
.♦ DOES ♦. 
NO .♦ REDUCED ♦. 
...... ARGUMENT .♦ 

♦.STRJCTURE.^ 
♦. MATCH.^ 
♦• .♦ 
* • YES 



CHECXT 

NO „*' 



J* 



• ♦• 



*. 



♦, 



?y*Jes ; 

MATCH .♦ 

.♦ 
*. • ♦ 
♦ YES 



CHECKT 


.♦• 

J5 *. 

♦ DO ♦. 




NO .♦ 


DATA ♦ 
TYPES 
MATCH .* 




...♦• 


.* 


. * 




, 


♦• .♦ 




X 


♦• •♦ 




♦♦♦♦ 


♦ YES 




• 
H3 • 






* 






**** 






111,122 X 




4i****K$********** 


* 


CONSTRUCT 


* 


♦ A REOyCEO 


* 
* 
* 



*•**•**•****«**** 



**** 

* * 

* nif * 

* * 
«*** 
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ihart 3U. Phase GU Cverall Logic Diagram 



*GU • 
♦ Al* 



♦ A2 * 

* * 



* GET SCRATCH ♦ 

• STORAGE FOR * 

* CHECK TABLE. *. 

• INtTIALIZE * 

♦ TEXT POINTERS • 



,X* SCAN TEXT ♦ 

* * 

* * 
***************** 



***** 

♦ HF ♦ 

* Al* 



**** 

* * 

* C3 < 

* * 
**** 



*****Q\********** 
* CALLA * 

*^*^*-*-*-*-*-*-* 



***************** 



* SET * 

* IF-SHITCH *X 

♦ TWICE ♦ 

♦ » 
**iy************** 



*. STATEMENT .*. 



YES .* FUNCTION 
>...*. MARKER 
*« 



THEN 



ASTMT.AENOST 

*«*ii*C3********** 

♦ HOUSEKEEPING ♦ 
♦FOR ENDS, ETC. * 

, ,X* I'lSET *. 

♦ IF-SWITCH ONCE * 

♦ ♦ 
***************** 



*****f'j ********** 



OUTPUT 
"HfCEOING 
rlTEMENT 



ASPECL.AENONO 

*****Ci,********** 

* UPDATE CHECK * 
» TABLE FOR * 

o X* PROC OR BEGIN ».. 

♦ STATEMENTS • 

• * 
***************** 



**** c 
BSCAN X 

*****rn********** 



*****C5********** 

♦ SET PCSW FOR * 
♦POSSIBLE CHECK ♦ 

♦ STATFMENT» ♦ 
♦PROCESS SIGNAL * 

♦ OR CALL STMTS ♦ 
***************** 



, X* 



SCAN TEXT 



***•♦•«*♦*•*♦♦•♦* 



ASCL 

*****0^********** 

♦ CALLB ♦ 

«-•-•-*-•-♦-♦-»-♦ 
-...♦SI3NAL CHECKFD ♦ 

♦ STATEMENT ♦ 

♦ LABEL ♦ 

***************** 



* STATEMEN 

♦ « 
•**♦♦**♦•♦♦♦♦*♦♦* 



♦X..V. 



BTEST3 
VES .*° 



•**«*F 2 ♦♦♦♦♦♦♦♦♦♦ 

♦ GO TO ♦ 

♦ PSEUOO-COOE ♦ 
.♦ ROUTINE TO ♦!( 

♦ CHECK THIS ♦ 
♦STATEMENT TYPE ♦ 
***************** 



*. SET 



F* *, 


*****r:i********** 


• ♦ ♦. 


t.*.*.it^i.*.*.: 


NO .♦ FUNCTION *. VES 


..*. MARKER ....... 


.,X^SIGNAL CHECKED ♦ 
♦ FUNCTION ♦ 


♦. .♦ 


*. .♦ 


♦ NAME ♦ 


*. .* 


***************** 



**** 
» ♦ 
» D* ♦X. 

► • X 

**♦♦ . 



, ♦. AND FMPTR ;♦ 

••..S?IeV*-* 



*4i«*Hl ♦*♦♦'*■♦♦♦♦ 

♦ ENTRY TO ♦ 

♦ CALLA/CALLB * 

♦ * 




BVARNO X 

«****H3 ♦♦♦♦♦♦♦♦♦♦ 

* DDWNOATE ♦ 

* CHECK TABLE ♦ 

* FOR END ♦ 

* STATFMENT ♦ 
« ♦ 
**♦♦♦*♦♦♦♦♦♦♦♦♦*♦ 




CALLIF .«. 

♦:* i^l« *:♦r.^^.. 


***«*J^ ********** 

♦ RESET IFSM. ♦ 

♦ OUTPUT 00 * 
..X^ STATEMENT. ♦... 

♦ GET END-FLAG ♦ 

♦ OR ENDSH ♦ 
***************** 


. •♦♦♦ 

♦ ♦ 
..X* 01 ♦ 

* ♦ 
•♦♦♦ 

CALLBA .♦. 

J3 ♦. 
.♦ ♦. 
.♦ WAS IT ♦. NO 


CALSTM 

*****jt,********** 

♦ RE-COPY ♦ 

* STATEMENT ♦ 


*•♦. ^".♦•* 

♦. •* 

* NO 


'•• "♦. .♦ 

♦. .♦ 
♦ • •♦ 

♦ YES 


« SOURCE TEXT ♦ 

tt**************** 












CALSYM X 

*****^-i********** 

* OUTPUT ♦ 

* REQUIRED ♦ 
e... X* SIGNAL ♦.... 

* STATFMENT ♦ 

* ♦ 


CALLEX 

****Hit********* 
V * 
. ...X* RETURN • 
« ♦ 



♦ SET FMPTR IF • 

♦ ANY ARGUMENTS ♦ 

♦ IN LIST ARE ♦ 

♦ CHECKED. SCAN ♦ 

♦ FROM MARKER ♦ 
***************** 



***************** 
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Chart HF. Phase HF Overall Logic Diagram 



***** 

• HF « 

♦ Al* 



***• 

• * 

* * 
**** 



•****A 1********** 



4**************** 



SCAN TEXT 



*«**«*•*«**«**•*: 



xarn .*. 

A3 *. 

,* *, **•* 

.* STRUCTURE *« VE S • ♦ 

, X*. ASSIGNMfNT .*..,, X* E2 ♦ 
*.SfiTEHlNT.* • * 

*, .* •*** 

*• •* 
■ NO 



,* *. •*•* 

.* ITEM IN ♦. YES * * 
.PUT STATEMENT.*.. ..X* G2 * 

*OATA SPfCNt* * ♦ 

*. .* **** 
*• •* 
♦ NO 



LS21 

C3 

YES .* STR 



****«01 ***«**•*•* 



•********••**•«** 



YES .» 
• ...*. ( 

*. 



IS IT 
ET DATA 
LIST 



' *. 



.* STRUCTURE *, 

• IN 5fl STMT .< 

• DATA SPECNt* 



**••* 
• HK * 
« Al* 



**** 
¥ * 

► 05 ♦ 

• * 

**** 



SAENO/SA73 X 

«**«*ns********** 

* nUTPUT END ♦ 

* STATEMENTS * 

* ANO SELL ♦ 

* TEMPS IF « 

* NECESSARY * 
•********i******4 



* E2 *.X. 

* * • 
«*** . 

SADRAB X 

•**«*E2* •*••***«• 
*ByiLO up STACK * 

* FOR STRUCTURE * 



' NEED 

***** 



tB start 



• ♦. 

E5 *„ 

-.♦ ARE ♦. 

, • THERE ♦, 

, MORE ELEMENTS.* 



spyRc 



,* 
> •* 

• YES 



,x* rI!>li 

*SnURCE 



_NT AND 
ACE IT IN 
...E TEXT BY • 
• NEXT ITEM * 
***************** 



♦ SCAN STRUCTURE * 



•*«••••**«*•«••** 



* •« 


.* *. 


*, YES 
STRUCTURE .* 

«. .*' 


.* HAS 

.. X*, STACK BEEN 



«*******•*«**•*** 



nl 



***H5********** 



> ASSIGNMENT 

************* 



********* 



NO 



NO ,» END *» 
1..*. OF EXPRN 

• . OR STMT ,« 



. • BY NAME 



* ?;E^'!CH FOR 

. X* RCD-MATCHING 

• fi«Se ELEMENT 



, * 



*. 



«**«*«**« 



,,»X*. FOUNO ,* 

*. - * 

*. I, • 

*• • * 

• YFS 



*«** 
« * 

♦ DS * 

* • 
*••* 



SAXl FTC X 

«****k; ********** 

• CHECK ITFM * 
•AGAINST PATTFRN* 

• or STAfK. •- 

• nUTPUT [T ANIl « 
*KEPLACE BY NCXT* 
«««•*****•******* 



*****KS* ********* 

• OUT PUT ♦ 

* Hn-MATCHING * 
,* R&SE * 

♦ FLPMENT * 

* * 
••*••*****«****•* 
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Ctjart HK. Phase HK Overall Logic Diagrai:! 



*HK * 
• Al* 



NRTRT \ 

*****A1 ********** 



*•****••***«***•* 



..* IS 
.* THIS 

•*. 'W 



dU 



**««<* 

*HP • 



**i*«C2********** 

* • 

* SEARCH NESTED * 
«*SUTE«EMT| FOR *. 

* AiSIGNNiNTS * 



.*. LSTSCN .*. ARROyr. ARRIN 

01 *. 0? *• «**«to3 ********** 

*:1yM^*:*:!J X*:*'* Ml ** •;*?!' ,: ?!«sYa585v ^ 

*"• n2fi *•* *.5TiTEil6MT.* • IN EXPRESS IC 



,* 
YES 



••*•«*******•**** 



.* IS IT *. 
. ASSI6NHENT .< 
♦.STATENiNT.* 




2******4*** 



4>**«I)[B2******4 

rMouTESfl . 

- AMD WHETHER ♦. 
VALID * 

«*•««*•*«««*«*«*• 



A OOP 

S«*4i*f; 3«M*«****> 

* scalarT 

•********8*«**«*i 



* MAKE ONE • 

* ENTRY IM * 

, X* STACK FOR *. 

♦EACH OIMENSinN * 

* * 



*:hA1N TEMPORARY* 
^• AND GENERATE * 
•BUY STATEMFNTS ♦ 

• * 

*•««**««****«« *4>* 




K QJHER ♦ 
ABLE* 



«*«*««*4i«******«« 



ARREXP i 

•**««H1 ********** 

: oo°i?i?t5iMTs : 

* INFORMATION **" 

* IN STACK • 
***«i******* ****** 



AETRT 

•«i*4i«H2********** 

* SCAN * 

* STATEMENT * 
...X* FOR 



LMJJ, 



• ARRAYS HHICH * 



***H4***«***««* 



FRFTMP 

**««4iH5********** 
♦ GFNERATF * 



Kumm 



* X* AP 



lATELV ♦ ...X* STATEMENTS *. 

♦FOR TEMPORARIES* 



«««*•*««•••*••«*« 



*4i**«4i«*«««*«*«4i« 



•*««**««*«*««*«4l* ' 
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Cnart HP. Phase HP Overall Logic Ciagram 



I NI T X 

* INITIALIZF ♦ 

♦ TEXT ♦... 


MA SCAN X 

***H<«A?4> ********* 

• * 

* SCAN « 


• *• 

A3 *. 

. * *r 

.« OEFINFO ♦• NO 

••••''*•*. m£?r.*' 

*. • * 


At" 
, * 
-♦ END 
•o.X*. OF 


* F>OINTE!»S ♦ 


* T6XT ♦ 

* * 


*n TFXT 
*, 



***************** 



•**«*****•****••* 



***** 
*I A ♦ 
* AI * 



***4C] *••**•*** 

* • 

* SUMOVF ♦ 

* « 
*************** 

*♦♦* 

* * 

* Dl *.X 



•*•**•***«•****** 



DEFINED *. VES 
SUBSCRIPT .*,... 
, MARKER .* 



• SKIP TO START * 

• OF SECOND * 
•SUBSCRIPT LIST ♦ 

• ♦ 
***************** 



*♦•♦ X 




DETEMO .*. 




C3 *. 




.* IS *. 




.* subscript 
••*o^c?^S?^f!e. 


* 




* 



•*•****•**•«•««•« 



,* EITHEI 
.AN INTEGI 
♦ .CONSTAI 



R *. 

jER or. 

ANT .* 



•***«f)f ********** 

• * 
♦SET OICT REFCE ♦ 

♦ INTO TABLE * 

• OF TEMPS * 

* * 
**«**•*««*••***** 



F* 



0EEN02 X 

*****r >;********** 
♦DUTPUt BUV TFMP* 



TEMP EQUALS. 
<* SAVF REFCF OF * 

* TEMP IN TAflLF * 

* * 
*•*«*«******•**>»« 



***************** 



**•♦ 



ANV *. 
. * MORE *. YES 
.SUBSCRIPTS IN.*...„X* C3 ♦ 
*■: SECOND ,* « ♦ 
*.LIST .♦ ♦*♦» 



*. 



* NO 



SUSUBS 

****«F2 ********** 

* OUTPUT PRIOR * 

* TEXT, FIND • 
...X* TABLE ENTRY * 

* CORRFSPONOING * 
♦TO ISUB NUMBER ♦ 
****«***«*****«4i« 



DEOONE X 

*••••): 4^«**«*****« 
♦ SET POMTgR T3 * 
•START OF PiRST • 

SCRIPT Lr|T 

fPUT REFCE 



**** 

* * 

* 01 * 

* * 
**•* 



**«**G2*^******^* 

♦ OUTPUT ♦ ♦♦♦♦ 
« OICT REFCE * * « 

• OF TFMP OR ♦.,..X* ni « 

• SUBSCRIPT ♦ * * 

* « •*•* 
**«**«********••* 



****H? ********* 
» * 

• RETURN * 

* * 
*************** 



DFNEXT X 

*****Qf •*«*•***** 

♦ SIJMOVE ♦ 

*-*-*-*-*-*-•-*-* 

• OtITPUT • 
*SUBSCRIPTi RE- * 
' PLACING (subs ^ 



****••*« 



»^ 



****** 



ANY *. 

YES c* MORE *. N 
...*, SUBSCRIPTS IN.*. 
*r FIRST .* 
*.LIST .* 

•• 9* 



****«J4***«****** 



***************** 



«***«H5******^^*^ 



♦ oy 

X* i 

♦ F( 



TPUT SELL 

EHENT 

TEMPS 



Ml*************** 



. • WAS ♦. 
YES .♦ THIS A ♦. 
...... CALL FROM .♦ 

♦. SUMOVE .* 
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Table Gh. Phase GA DCLCB Generation 



P ^ ^. 

I JMain Processing | 

I Statement or Operation Type | Routine | 



Subroutines Used 



I- 1 

I Scans STATIC chain |IL0100 
j. _ 1 

[Generates DECLARE control block |IL0110 

I entry | 

^ 1 

jGenerates OPEN control block entry |IL0120 

L X 



• + 

IILOIIO, IL0120 

■i 

jCHKATT, IriEENV 

I 

■ + ■ 



I CHKATT 
.i. 



Table GAl. Phase GA Routine/Subroutine Directory 



f. ^. 

I Routine/Subroutine | 



Function 



F- 



-+• 



CHKATT 
IHEENV 

ILOOOO 
ILOIOO 
ILOllO 
ILOllU 
IL0115 
IL0117 
IL0118 
IL0120 
IL0200 



Checks attributes and creates control words. 

Checks environment options, and inserts themi into DECLARE control 
blocks. 

Entry point from com.piler control. 

Scans STATIC chain. 

Generates DECLARE control block entry. 

Test point for environment entry. 

Return point from environment processing. 

Processes file attributes entry. 

Branch point of SYSPRINT file found. 

Generates OPEN control block entry. 

Releases control. 
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Table GB. Phase GB Pretranslator I/O Modification 



^ y 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+■ 



Subroutines Used 



Removes all second level rrarkers 



Throughout 
phase 



None 



+■ 



Reorders options to put EDIT, DATA 
or LIST last 



A8 



SCNS, SCAN2 



+- 



+- 



Moves DO specifications to precede 
relevant list in data lists, adds 
END statements 



SCAN2 



LLDCIT 



Expands iteration factors in format 
lists 



FORLST 



None 



Checks for use of COBOL files in 
READ, WRITE, and LOCATE Statements 



A4 



LOCATE, READ, WRITE, DELETE, MAP, 
COPY, STSCAN 
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iTable GBl. Phase GA Routine/Subroutine Directory 



P y. 

I Routine/Subroutine | 



Function 



h 



•+- 



AFORMT 
1A4 
A6 
A8 
A21 
COPY (GO 

DELETE (GO 

FORLST 

F2 

F5 

F5A 

F6 

F6A 

F6B 

F7 

LABI 7 B 

LLDOIT 

I [locate (GO 
I 

] MAP ( GC ) 

, MKROOM 
MR 
READ (GC) 

SCAN 2 

SONS 
STSCAN (GC) 

WRITE (GO 



Processes FORMAT statements. 

Checks for use of COBOL files in READ, WRITE, and LOCATE statements. 

Scans source text for GET and PUT statements. 

re-orders options to put EDIT, DATA, or LIST last. 

Scans GET or PUT statement for data specification. 

Copies a structure and places the copy on the COBOL chain. Sets up 
text skeletons. 

Removes an offending I/O statement and inserts an error statement in 
the output text. 

Expands iteration factors in format lists. 
[Creates and buys integer temporary. 

Scans and outputs format item. 

Sells temporary. 
[Tests for end of format list. 

Tests for end of format specification. 

Outputs end of format specification. 

Scans format list. 

Processes format list in GET or PUT statement. 

Moves DO specifications to precede relevant list in data lists, adds 
END statements. 

Checks for the use of a COBOL file, and puts out a warning diag- 
nostic. 

[compares the PL/I and COBOL and PACKED (NONSTRING) mappings of a 
structure. 

Provides space in a statement in new source file. 

Initializes text blocks and pointers, and obtains scratch storage. 

If a READ IGNORE is encountered, no action is taken. If a READ SET 
is encountered, a warning diagnostic is given. If a READ INTO for a 
structure is encountered, PL/I and COBOL mappings are compared. 

Scans option list for end of option or statement, expands DO speci- 
fications, and changes certain function markers into pseudo-variable 
markers. 

Scans option list for end of option or statement. 

Stores the dictionary reference of the file and the INTO/FROM varia- 
ble, and sets flags. 

For structures, the PL/I and COBOL mappings are compared. 
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Table GK. Phase GK Pretranslator Parameter Matching 1 

r T T- 

|Main ProcessingI 
I Routine | 
+- 



Statement or Operation Type 



Subroutines Used 



Scans source text for function 
markers 



BASCAN 



4- 



iCPSTiyiT, CRSTMT 
I 

4 _ 



Processes function, puts out ref- 
erence and initial code bytes 



BAFM 



SCANRP 



Processes arguments 



BALOOP 



■ + ■ 



lADDTGT, SCNCRP 
■f 



Checks numbers of arguments 



ARGNOQ 



None 



Table GKl. Phase GK Routine/Subroutine Directory 



r T' 

I Routine/Subroutine | 



Function 



I" 



■+■ 



ADDTGT 

ARGNOQ 

BABT3 

BACALQ 

BADELM 

BAFM 

BAFST 

BALOOP 

BALPQ 

BAI40RE 

BANORM 

BAPVM 

BARECQ 

BARGFN 

BASCAN 

BASTOP 

CPSTMT 

CRSTMT 

SCANRP 

SCNCRP 



Adds data to output text. 

Checks number of statements. 

Tests for STOP marker. 

Outputs function and first bytes of argument list. 

Tests for end of argument list. 

Processes function, puts out reference and initial code bytes, 

Locates SETS list and parameter list for function. 

Processes arguments. 

Tests whether argument list is present. 

Accesses next argument in list. 

Sets STOP marker to scan argument. 

Examines pseudo-variable. 

Tests for nested function reference. 

Outputs warning miessage. 

Scans source text for function markers. 

Outputs argument. 

Adds closing bytes of a statement to output text. 

Adds first bytes of a statement to output text. 

Scans argumient list. 

Scans argument. 
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Table GO. Phase GO Preprocessor Parameter Matching 2 



T T- 

|Main Processing! 
Routine I 



I Statement or Operation Type | 



>ubroutines Used 



h 



■+- 



■+- 



I Initialization and scratch core | PMATCH 
I utilization for Parameter Matching j 
|2 I 

L . X 



POLYMV 



Table GCl . Phase GO Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



|. 1 „ _ ^ 

I PMATCH I General initialization and scratch core utilization for Parameter 

I I Matching 2. 

I I 

I POLYMV I Moves the routines POLYl , P0LY2, P0LY3, POLYU and POLYS into scratch 

I I storage (see Table GP) . 

L ± , J 
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Table GP. Phase GP Pretranslator Parameter Matching 2 

r T T-- 

Main Processing 
Routine 

+ 



Statement or Operation Type 



Subroutines Used 



Scans text for procedure and func- 
tion calls 



BSl 



ADDTT, STKINF, UNSTCK 



Examines argument lists for expres- 
sions 



BS4 



EXSCAN, Ml, M4, M16, SCANFR 



Creates temporaries for scalar 
expressions and constants 



M16 



ADDTT, CCPYTP, MKDCEN, SETBUY 



Creates temporaries for array 
expressions 



E2 



ADDTT, CHCKBl, COFYTP, MKDCEN, 
SETBUY 



Creates temporaries for partially 
subscripted array expressions 



E3 



ADDTT, CHCKB4, COPYTP, MKDCEN, 
SETEUY 



+- 



Creates special temporaries for 
partially subscripted arrays 



EX16 



4- 



+- 



ADDTT, BS2, CHCKBU, CHECKT, COPYTl, 
MKDCEN, STKINF, UNSTCK, Zll, 
SETEUY, SEIMT 



Checks single arguments (except 
structures) with parameter descrip- 
tions 



M4 



■+- 



CHECKT, M16 



+- 



Checks single structure arguments 



M5 



+- 



CHECKS, CSTTMP 



Creates temporaries for structure 
expressions 



M21 



CSTMP2, MKDCEN, CHCKB4, SETMT, 
ADDTT 



■ + - 



Creates temporaries for partially 
subscripted structure 



Z22 



■+- 



ES2, ADDTT 



f- 



Compare the two argum.ents of the 
POLY function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 



POLYl, P0LY2, 
P0LY3, POLYU, 
POLYS 



BS2 



■+■ 



Creates special dictionary entries 
for generic entry labels used as 
arguments 



M37 



None 
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Table GPl. Phase GP Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



■+- 



ADDTT (GR) 

BSl 

BS2 

BS4 

BSIO 

BS33 

CHCKBl (GR) 

CHCKB2 (GR) 

CHCKB3 (GR) 
CHCKB4 (GR) 

CHCKSl (GR) 
CHECKB (GR) 
CHECKS (GR) 

CHECKT (GR) 
COPYTP (GR) 
COPYTl (GR) 

CSTTMP/CSTMP2 
EXSCAN (GQ) 
EX16 (GQ) 
EX36 (GQ) 
E2 (GQ) 
E3 (GQ) 
MKDCEN (GQ) 
Ml (GQ) 
M2 (GQ) 
M4 (GQ) 
M5 (GQ) 
M6 (GQ) 
MIO (GQ) 



(GQ) 



Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End-of -program routine. 

Tests for constant argument. 

Compares the bounds of argument and parameter arrays, and creates 
new dimension tables for temporary arrays. 

compares the bounds of argument and parameter arrays where the argu- 
ment is partially subscripted, and creates new dimension tables for 
temiporary arrays. 

Creates a new dimension table from; a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures. 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter struc- 
tures. 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a paramieter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 

Creates a chameleon dictionary entry. 

Creates temporaries for array expressions. 

Creates temporaries for partially subscripted array expressions. 

Makes dictionary entries „ 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments. 

Tests for structure parameter. 

Processes subscripted variable argument. 
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Table GPl. Phase GP Routine/Subroutine Directory (cont'd) 

Function 



r T- 

I Routine/Subroutine | 



f- 



M12 


(GQ) 


M13 


(GQ) 


Mm 


(GQ) 


M16 


(GQ) 


M21 


(GQ) 


M22 


(GQ) 


M23 


(GQ) 


M24 


(GQ) 


M37 


(GQ) 


M41 


(GQ) 


M4 4 


(GQ) 



Creates a warning message. 

Gets BUY text. 

Processes scalar argument. 

Creates temporaries for scalar expressions and constants. 

Creates temporaries for structure expressions. 

Processes data item parameter. 

Processes label parameter. 

Creates a structure temporary. 

Creates dictionary entries for generic entry labels which are argu- 
ments. 

Error routine. 

Processes dimensioned scalar argument. 

Check the arguments to the POLY function and generate code to buy 
temporaries, if the arguments are not both floating and do not have 
the same scale and precision. 

Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

Sets temporary dictionary references in WTF compiler functions for 
array and structure bounds. 

Stacks information on encountering nested functions. 

Tests for constant argument. 

Unstacks information. 

Generates text to set up the dope vectors of partially subscripted 
array temporaries. 

Generates text to assign the structure subscripts of partially sub- 
scripted structures to temporaries, and then to set up the dope 
vector for the partially subscripted structure temporary. 



POLYl, P0LY2, 
P0LY3, P0LY4, 
POLYS (all in GO) 

SCANFR 

SETBUY (GQ) 

SETMT (GR) 

STKINF 
TESTC 
UNSTCK 
Zll (GR) 

Z22 (GR) 



Table GU. Phase GU Pretranslator Check List 
r T 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Scans statement; checks if preced- 
ing SIGNAL statement is needed 



BSCAN 



CALL, LIST, MOVE, SUOPQ 



Scans statements; checks if follow- 
ing SIGNAL Statement is needed 



ASCAN 



None 



■+- 



|] 

|. 

Searches list for checked items | SUOPQ 

L J. 



Provides a SIGNAL CHECK statement 



CALL 



GENTST 



■+- 



CALL, LIST 
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Table GUI. Phase GU Routine/Subroutine Directory 



r T* 

I Routine/Subroutine | 



Function 



h 



■+- 



ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECL 

ASTMT 

ATESTU 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTEST4 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

CALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 



Sets IF-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 

Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 

Housekeepirtg for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement; checks if preceding SIGNAL statement is required. 

Tests whether SIGNAL statement may be needed after statement output, 

Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 
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Table HF. Phase HF Pretranslator Structure Assignment 

r T T 

Main Processing 
Routine 



Statement or Operation Type 



■+- 



+■ 



Subroutines Used 



Scans text for structure assignment 
Statements, regions of nested 
statements, output list expres- 
sions, and structure references in 
input lists 



MR 



BYNAME, GENTST, LSTSCN, MOVE, 
NSTSCN, STRASS, 3TREXF, STROKE 



Expands structure a 
expressions into a 
assignments or expr 
ponding to the base 
structure operands, 
elements are arrays 
ponding component e 
assignments are sur 
appropriately itera 



ssignments and 
set of scalar 
essions corres- 
elements of the 
Where the base 
the corres- 
xpressions or 
rounded by 
ting DO groups 



BYNAME, STRASS, 
STREXP, STRURE 



DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 



Scans regions of nested statements 
for structure assignments 



NSTSCN 



MOVE, NSTSCN, STRASS 



Adds text to the output string 



MOVE 



GENTST 



+ - 



Determines space availability in an 
output text block 



GENTST 



MOVE 



+■ 



Scans function argument and sub- 
script lists 



LSTSCN 



MOVE, NSTSCN 



+ ■ 



Constructs DO statements and checks 
bound equivalence 



DVCON 



GENTST 



■ + 



Constructs subscript lists for 
references to dimensioned structure 
base elements 



SBGN 



GENTST 
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Table HFl. Phase HF Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



I- 

BYNAME (HG) 

BYNl (HG) 

BYNll (HG) 

BYNl 3 (HG) 

DVCON (HG) 

GENTST 

LSGET 

LSTSCN 

LS21 

LS23 

MOVE 

MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 
SAEND (HG) 
SAOP (HG) 
SATRT (HG) 
SAXl (HG) 
SA20 (HG) 
SA32 (HG) 
SA36 (HG) 
SA73 (HG) 
SA79 (HG) 
SBGN 

STRASS (HG) 
STREXP (HG) 
STRURE (HG) 

L . 



■ + - 



Expands BYNAME structure assignments. 

Searches for matching ECDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching ECDs. 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data-directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans source text for structures. 

Scans regions of nested statements for structure assignments. 

Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK, Pretranslator Array Assignment 

r T T 

Main Processing 
Statement or Operation Type 



Routine 



+- 



Subroutines Used 



Scans text for array and scalar 
assignment statements 



MR 



None 



+■ 



Scans text for nested array and 
scalar assignment statements 



MR 



NESTAT 



+ ■ 



Scans text for array expressions in 
I/O lists in GET and PUT statements 



MR 



ARRASS, LSTSCN 



+ ■ 



Expands arrays into DO loops and 
scalar assignments; checks dimen- 
sions and bounds 



ARRASS 



FRETMP, MDE, OPTST, SLGCH, SUBSKP 



Table HKl. Phase HK Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



Examines leftmost operand. 

Tests for multiple assignment. 

Checks pseudo- variables. 

Scans array expression. 

Expands arrays into DO loops and scalar assignments; checks dimen- 
sions and bounds. 

Generates DO loops and subscripts for array references. 

Entry point for array expressions in input lists. 

Entry point for array expressions in output lists. 

Generates a SELL statement for temporaries bought in the current 
stateiTient. 

Scans I/O lists for possible array expressions. 

Makes a temporary dictionary entry. 

Scans text for array and scalar assignment statements, for nested 
array and scalar assignment statemients, and for array expressions in 
GET and PUT statements. 

Tests for end of text. 

Scans text. 

Scans nested statements. 

Tests any given operand. 

Generates and checks subscript lists. 

Inserts subscripts in expanded array position. 

Skips a subscript or subscript list. 



AADOP 


(HL) 


AAMULA 


(HL) 


AA3 (HL) 


AETRT 


(HL) 


ARRASS 


(HL) 


ARREXP 


(HL) 


ARRIN 


(HL) 


ARROUT 


(HL) 


FRETMP 




LSTSCN 




MDE 




MR 





MREOP 

MRTRT 

NESTAT 

OPTST 

SLGCH 

SLMCG 

SUBSKP 
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Table HP. Phase HP Pretranslator iSub Defining 
J. . ^ 



Statement or Operation Type 
|. _ 

E5cans source text for references 
defined by iSUB 
\- 



Main Processing | 
Routine | 



Subroutines Used 



MASCAN 



MOVE 



+^- 



1 

IGENTST, MOVE, SULIST, SUMOVE 



■+■ 



Processes references defined by 
iSUB 



DEFSUB 



\- 



Scans subscripts 



SUMOVE jNone 

(in SULIST) I 



Table HPl. Phase HP Routine/Subroutine Directory 



^ — ^. 

I Routine/Subroutine | 



Function 



\- 



4- 



DEDONE 

DEEND2 

DEFSUB 

DEGBDl 

DENEXT 

DENGUE 

DERCUR 

DERETN 

DETEMQ 

GENTST 

INIT 

MASCAN 

MOVE 

SULIST 

SUMOVE 

SUSCAN 

SUSUBS 



Resets pointers to scan first subscript list. 

Creates and buys temporary. 

Processes references defined by iSUB. 

Tests for end of second subscript list. 

Outputs first-list subscript and tests for end of list. 

Tests whether dictionary reference is constant or integer variable. 

Stacks parameters for recursive entry to DEFSUB. 

Returns to MASCAN or SUSCAN. 

Tests whether second-list subscript is simple dictionary reference. 

Checks space in output text block. 

Initializes text blocks and pointers, gets scratch storage. 

Scans source text for references defined by iSUB. 

Moves text from source to output. 

Scans subscript lists. 

Scans subscripts. 

Scans subscript. 

Replaces iSUB by corresponding subscript or temporary. 
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Chart 05. Translator Lcgical Phase Floi^^chart 
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Chart lA. Phase lA Overall Lcgic Diagrarr 
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Chart 13. Phase IG Overall Lcgic Diagrarr 
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;hart IW. Phase IM Overall Lcgic Diagrarr' 
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:hart IT. Phase IT. Overall Logic Diagrarc 
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**** 

* • 
•X* B2 * 

* « 
**** 



••«**J3*******«** 



***************** 



INVOLVIN 
CHANEL En 



***************** 



PGFNCM X 

*****K4*********« 
* DELETE ALL • 



*THIS CHAMELEON • 

* • 

***••***•*•****•* 
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Table lA. Phase lA Translator Stacker 
r 



T T- 

I Main Processing I 
Routine 



Statement or Operation Type 



Subroutines Used 



h 

II Scans source text 

j^ 

II Compares transfer vector 



ESCAN 



None 



■+- 



EACTNC 



|ECOO to EClO 
■ + - 



Stacks transfer vector 



h 



lEACTNS 

•+ 

I EGENR 



|ESOG to ES2E 
.| 

JEGE1NR2, EGENR3, ENEWBL, ENOREP, 
JEREPL, ETRBMP 



Generates triples 



•Table lAl. Phase lA Routine/Subroutine Directory 



I T- 

Routine/Subroutine | 



Function 



Ir ■ 

EACTNC 

EACTNS 

ECOO to EClO 

EGENR 

EGENR2 

EGENR 3 
ENEWBL 
ENOREP 

EREPL 

ESCAN 

ESTCAC 

ESOO to ES2E 

ETRBMP 



■+- 



Compares transfer vector. 

Stacks transfer vector. 

Provide comparison action for each operator. 

Generates triples. 

Generates triple for top stack operator, with blank first operand, 
then deletes the operator from the stack. 

Generates triple with two blank operands. 

Obtains and chains new text block for output, resets output pointer. 

Deletes top stack operator, flags new top operand as the result of 
the triple just generated. 

Replaces top stack operator by its prime, to indicate end of a list 
of function arguments or subscripts. 

Scans source text. 

Places operand in stack. 

Handle stacking of operators. 

Increments output point over one triple if end of text block is 
found. 
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Chart IX. Pnase IX Overall Logic Diagraii 



***** 

*IX • 
* Bl* 



•****B I ********** 

* • 

• INITIALISE * 

* « 

• * 
***************** 



* SCAN TEXT FOR ♦ 

* INTERESTING * 

* TRIPLE * 

* * 
***************** 

**** 
« • 

* Dl *. X 
« * 

***« 

• *• 

01 *. 

.* * 

.* END 

*. OF TEXT 

BLOCK 



*, 



*. •* 



.* 



*****D?********** 



***************** 



*****E 2 ********** 



**** *F 1 ********** 

* * 

* SELECT • 

* APPROPRIATE * 

* ROUTINE * 

* * 
***************** 



TEST 
«****G1 ********** 

* TEST DPERANOS * 

* FOR ♦ 
*r)ATA TYPES AREA* 

* AND POINTER * 

* • 
*)i*************** 



•***«*******•***• 



***** 
*JD • 
* Al* 



• EITHER 

OPERAND IN 
». ERROR c 



<i«***H 3 ********** 



***************** 



. X* 



*****H4 ********** 

* SET UP * 

* ERROR TRIPLE * 
tN TEXT ANO *„ 

» ERASE BAD * 

* STATEMENT * 
***************** 



.* ARF ♦. 

. *THEPE >2Ct 
, TEMPORARY 
*. RESULTS . 



*****j2********** 

* * 

* SET UP * 
,X* ERROR MESSAGE * 

* AND ABORT * 

* * 
««***«*****«***** 
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Chart JD. Phase JD Dverall Logic Diagr^ii 



***** 

*JD ♦ 
* Al* 



ALIZE 

POINTERS ETC. * 

• GET SCRATCH ♦ 
*CORE FOR STACK ♦ 

* * 
***************** 



SCANT 

«*«**C1 ********** 

* SCAN TEXT ♦ 

* FOR CONCAT 

* OR PREFIX 

* TRIPLES * 

* * 
***************** 



♦ X. 



*****DI********** 



MORTXT 

*****D2*******«** 
♦ GET NEXT * 
♦BLOCK IN CHAIN,* 



***************** 



***** El ********** 



* POINTER * 

* * 
***************** 



***************** 



*****F 1 ********** 



E2-*-*. 
« * *. 

IS THE ». YES 
STACK EMPTY ,♦ 


HINDUP 

*****E3********** 

* RELEASE * 

* SCRATCH CORE ♦ 
...X* AND *.o. 




I •* 
*. .♦ 

*, g* 

* NO 


♦RETURN CONTROL » 
***************** 


X 
***** 
*JI ♦ 
♦ Al* 



***************** 



IS *. NO 
THE STACK .*.,.. 
, EMPTY ,* 

*. «♦ 



*****F3********** 

* * 

* PUT OUT * 
K* MESSAGE * 

* AND ABORT * 

* * 
***************** 



STAKOP 

*****C ;*******«** 
**♦• * OPERAND ♦ 

• * * STACKING * 

► C5 *. ...X* CONTROLLING *X, 

* « * ROUTINE CALLS ♦ 
**** * * 

***************** 



UNSTAK X 

*****n5*** ..***♦* 

* MOVE RESULTS * 
*FRnM THE STACK ♦ 

* INTO TEXT. * 

* ABORT IF * 

* STACK EMPTY * 
***************** 



TRYFLG 

*•*«*£;*****•**** 

* TEST FLAG ♦ 

* BITS WHICH * 
*CONTROL STACKNG* 

* ABORT IF * 

* STACK FULL ♦ 
***************** 



* UPDATE TEXT * 
. ♦ POINTER RESET * 

* TFLAG TO ZERO * 

* * 

***************** 



**«i*«Gl ********** 

* * 

* * 

, X* CONCATENATION *. 

* * 

* * 
***************** 



*ROUTINF CHECKS * 
, X*OPERANOS DICT. *. 

* ENTRIES ♦ 

* * 
***************** 



.* BOTH ♦^ 

, X*. CONSTANT 

». STRINGS .* 



*****G^********4* 
» CONCATENATE, * 
* AND MAKE NEK * 
DICT. ENTRY *. 
w FOR RESULT * 
« * 

***************** 



>X» 



*****t;5 ********** 

* NULL TRIPLE, ♦ 

* PUT REF IN * 

* STACK TEMP, *. 
*SET SFLAG ■ ri * 

* * 
***************** 



.X* 



**«**H1 ********** 



«*«**H3 ********** 



***************** 



***************** 



***** J I ********** 
« • 

* * 

. X* UNARY PREFIX *. 

* « 

* * 
***************** 



*ROUTINE CHECKS * 
iX« OPERAND'S *. 

* OICT. ENTRY * 

* * 
***************** 



«****j<^********** 

* SET SIGN ♦ 

* AND MAKE NEW * 
<* OICT. ENTRY *. 

* IF MINUS * 

* * 
***************** 



*****J5********** 

* N'JLL TRIPLE, * 

* PUT REF INTO ♦ 
K* STACK TEMP, * 

•SET SFLAG « r2 * 

* * 
***************** 



*****K1 ********** 

* * 

* INERT * 
,X* NON-PRODUCTIVE*. 

* TRIPLE ♦ 

* * 
***************** 



*****K2 ********** 



.X* SET TFLAG ON *. 



***************** 
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Table IG. Phase IG Translator Pre-Generic 

J. ^ 



Statement or Operation Type 



Main Processing 
Routine 



+- 



Subroutines Used 



Scans text for BUY aggregate argu- 
ment dummies, end-of-block, and 
end-of-program triples 



GSl 



FR, BR, TRFl, GS12 



+- 



Obtains next text block 



GS12 



None 



Transfers text to output block 



TRFl 



None 



+- 



Transfers text skeletons to output 



TRF2 



•+ 



■+- 



GSl, TkFI 



Stacks and unstacks information on 
encountering function and function 
triples 



FR, FRP 



None 



+■ 



Inserts assignment statement for 
aggregate argument dummies 



BR 



GSl, TRF2 



Table IGl. Phase IG Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 




Inserts assignment statements for aggregate argument dummies. 

Transfers point for IGNORE triple. 

Inserts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function' 
triples. 

Scans text for BUY aggregate argument dummies, end-of-block, end-of- 
program triples. 

Chains to next text block on encountering an end of block marker. 

Transfers text to the output block. 

Transfers text skeletons to the output block. 
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Table IL. Phase IL Translator Pre-Generic 

r T ~ T 1 

I I Main Processing I | 

I Statement or Operation Type | Routine | Subroutines Used | 

} 1 1 ^ 

I Moves function table to scratch |BASROU |None | 

I storage. j j j 

I . J. . ± . J 



Table IM. Phase IM Translator Generic 
r ■ T' 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Selects function for processing 



GNFUNC 



GNXTRP 



Selects generic procedure 



GNPLIG 
GNBIFH 



+ ■ 



GNDRTA, GNXTRP, GNFMID 



Selects generic Library routines; 
determines function result 



GNARID, GNCBEF, GNCACI , GNCTBI, 

GNGNCR, GNPRSC, GNSACK, GNSAPC, 

GNSBAR, EXPANL, GNSAPR, GNSBRT, 
GNSFMS 



•+- 



Selects chameleon dummy and inserts 
it in relevant dictionary entry 



GNCHAM 



GNXTRP, EXPANL 



■+- 



■ + ■ 



Controls scan of text -■ 
to processing routine 



branches 



EXPANL 



ARITH, LSTl, SUESPT, ASSIGN 
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•Table IMl. Phase IM Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 

1-- 



Function 



-H 



ARITH (IN) 
ASSIGN (IN) 
EXPANL (IN) 
GNARID (IP) 

GNEIFH (IP) 

GNB08 (IP) 

GNB16 (IP) 

GNCACI 

GNCBEF 

GNCHAM 

GNCTBI 

GNDRTA 

GNEOB 

GNEOP 

GNFMID (IQ) 

GNFUNC 

GNF04 

GNF027 

GNFM3 (IQ) 

GNL06 (IQ) 

GNGNCR 

GNPLIG (IQ) 

GNPRSC (IP) 

GNSACH 

GNSAPC 

GNSAPR (IP) 



Calculates type of result of arithmetic operation (except **). 

Returns to calling phase with result. 

Controls scan of text — branches to processing routine. 

Identifies argument of built-in function and converts it to valid 
type, if possible. 

Selects generic Library routine; determines function result. 

Selects relevant family member. 

Sets up result type of a built-in function. 

Checks and converts a decimal integer. 

Standardizes argument code byte to a form for generic selection. 

Selects chameleon dumimy and inserts it in relevant dictionary entry. 

Converts from decimal to binary. 

Analyzes dictionary type. 

Processes end-of-block marker. 

Processes end-of -program marker. 

Identifies family member. 

Selects function for processing. 

Checks for nested function situation. 

Sets up result type of a PL/I function. 

Replaces original reference in text. 

Forms entry relating to particular invocation. 

General conversion routine. 

Forms tacle of family member descriprions. 

Selects highest mode, scale and precision of variable argument list. 

Performs special argument check. 

Calculates scale and precision of a function result. 

Examines second and third arguments of the SUBSTR built-in function 
or pseudo-variable and, if possible, converts them to binary 
integers. Sets selection code according to findings. 
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•Table IMl. Phase- IM Routine/Subroutine Directory (continued) 

Function 



P ^. 

I Routine/Subroutine j 



I- 



■+- 



GNSBAR 
GNSBRT (IP) 

GNSFMS (IP) 

GNTRID 
GNXTRP 
LSTl (IN) 
SUBSPT (IN) 



Handles a subscripted argument. 

Examines all three arguments of SUBGTR and calculates the resulting 
type exactly. 

Replaces references to SUBSTR in text by a reference tc another 
entry giving detailed information about the arguments. Places a 
description of the resulting string in the text. 

Scans source text. 

Gets next triple. 

Calculates type and length of result of string operation. 

Adds type of array to stack. 



•Table IT. Phase IT Post-Generic Processor 

r T 



Statement or Operation Type 



I" 

I Scans source text 



Main Processing] 
Routine I 



Subroutines Used 



PGTXSC 



|. _ „ „ 

[Analyzes type of function detected 



I PGTOl , PGEOB , PGECP 

4 

I None 
.+ 



PGFUNC 



I- 

I Completes function handling 



PGFNCP 



PGNEXT 



Detects 'chameleon' temporary ref- 
erences and deletes BUY and BUYS 
triples where possible 



PGBUYS 



PGBUY 



■+- 



Deletes 'chameleon' reference in an 
assignment triple and alters the 
argument triple to indicate an 
intermediate result 



PGPASS 



None 



■+ 

|PGBYAS,PGSELL 



Deletes all other references to 
'chameleon' temporaries where 
applicable 



PGFNCM 
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Table ITl. Phase IT Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 
^ 



Function 



PGASS 

PGBYAS 

PGBUY 

PGBUYS 

PGEOB 

PGEOP 

PGFNCM 

PGFNCP 
PGFUNC 
PGNEXT 
PGSELL 
PGTXSC 
PGTOl 



Deletes 'chameleon' assignments. 

Processes 'Buy Assignment' triples. 

Processes BUY triples. 

Processes BUYS triples. 

Deals with End of Text Block conditions. 

Processes end of program marker. 

Replaces 'chameleon' reference by an intermediate result where 
applicable. 

Processes function prime marker. 

Analyzes function, and determines the type of processing required 

Gets the next triple in source text. 

Processes SELL triple. 

Scans text. 

Determines action to be taken for a significant triple. 



• Table IX. Phase IX Pointer and Area Checking 



-^ ^- 

|Main Processing! 
Routine 



Statement or Operat.ion Type 



Subroutines Used 



-+ 

I TEST, ERASER 

-X 



Main scan routine 



BUMP 



Table IXl. Phase IX Routine/Subroutine Directory 



Routine/Subroutine j 
+ 



Function 



I BUMP 

I 

ITEST 

I 

I ERASER 



I Scan routine. 

I 

[Tests operands for pointer and area data types 

I 

I Processes bad statements. 
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#"l\ibio JD. Phase JD Constant Expression Evaluator 
r ■ 



I I Main Processing] 

I Statement of Operation Type j Routine | 



Subroutines Used 



^ _ „ + 

I Initializes phase, gets scratch | INITl 
I etc. I 



None 



^ . „ + 

I Scans text, for constant triples | SCANT 
^ _ „ + 

I Handles stacking/unstacking of | STAKOP 
I operands j 

L . . X 



■ + ■ 



iMOi^TXT, PREFIX, CCNCAT 



I UNSTAK 

I 

.X 



Tcible JDl. Phase JD Routine/Subroutine Directory 



r • — T" 

I Routine/Subroutine | 
^ _ 



Function 



CONCAT 

INITl 

MORTXT 

OUT 

PREFIX 

SCANT 

STAKOP 

TRYFLAG 

UNSTAK 

UPTXT 

WINDUP 



Detects constant string operands, performs concatenation, makes new 
disk entry, and puts ref. in a slot for stacking. 

Gets scratch core for the stack, initializes slots and switches. 

Gets next text block, resets pointer. 

Puts out error message and aborts compilation if stack is not emip- 
tied. 

Detects unary prefixed constant, makes new list entry and puts ref. 
in a slot, for stacking. 

Main scan routine. 

Push down stack handler. 

Tests if stack is full, and if so, aborts. 

Moves entry from the stack. 

Updates text pointer. 

Releases scratch core and returns control to the control phase. 
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Chart 06. Aggregates Logical Phase Flowchart 



***** 

*nA * 
* Bl* 



*****B I**** ****** 
♦STRUCTURE JI* 
*-«-*-*-*-*-*-*-* 

* STRUCTURE ♦ 

* PREPRDCESSnR • 

* « 

4**************** 



*****C I********** 

♦STRUCTURE JK* 

*-*-•-*-*-*-*-*-* 

* STRUCTURE * 
♦PROCESSOR SCANS^ 

* DATA CHAIN * 

***************** 



Dl *. 


*t***D2********** 


*, 


♦DEFINED JP* 


ANY *. VES 


*_♦_♦_*_*_*_«_*_* 


DEFINED .* 


..X^ nPFINEO * 


ITEMS .* 


• CHFCK ♦ 



***************** 



***** 
*C7 * 
♦ Al* 
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Chart JI. Phase JI Overall Cogic Diagrari 



***** 
*ji * 
* *i* 



*****Ai«*******«* 



* V 

* HOVE C 

* AND R 



hVfHr 

ELEASE 



*ili************«** 



*w* **B 1 *••****** 



•«*«•*•******•** 



**ili**B2*********<* 



• ****«****««****4i 



*****B4***«****** 



****••*•******••• 



****D1 *)<******** 
« 
SET * 

NEXT ITEN * 



*****E1 *}(*«•****« 



*****02********** 



«««*****«***••*** 



***«*C 3*********1 



****•**•*****•**: 



*****|}(^********** 



* **************** 



*****(: 3********** 



*********** ****** 



, ITEM DATA 
*.VARIAeLE . 

*• •* 



***«*f:2 ********* 



**************** 



**** ,* *. 

* ♦ NO .* STRUCTURE •. 

• 01 *X....*. OR ARRAY „♦ 



***************** 



X 
***** 
*JK * 
* Al* 



*****F^**«******* 



***************** 



G4 *. 

. * 

ADJUSTABLE .*.. 

►o 

*, 
*, 



NO 



***« 

* * 
. X* 01 * 

* 4 

**** 



* YES 



*****H'V********** 



*****F 5*** ******* 



***************** 



*****G5* ********* 

* * 

* PUT STRUCTURE * 
, X* ON CORRECT ♦ 

* AUTO CHAIN * 

* ♦ 
***************** 



*****•*••*••***•« 



*****j2********** 

* * 

* HAKE ENTRY * 

* FOR LIBRARY * 

* ROUTINE * 

* * 
***************** 
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Chart JK. Phase JK Overall Logic Diagram 



* * 

* A2 * 

* * 

• *•* 



•♦ IS 

.* DV 



•***A3********* 



..xi '^"sIS^age'* Jx ■;;*: REQUIRED ;*.;:.. ..,x« hake a OVO 

. * ITEMS « . - ^ 



• * 

• Al • 

• • 



••****••***•*«**• 



X 

* • 

* Al • 

* • 



*. OF CHAINS 



• *«** 
•JP ♦ 

VI* 



••♦*. oA\ 



♦.YES 
N .*.... 

NED .* 



« 
,X* GET BASE 

* 



«««««Cd^*«*4r*«*** 



• * HAS *• NO * 



*•*•***•*****•** 



02 



*, 



♦ • VES .* ,^.^. , .. 

« Al 'XX....*.SUITt|Ci FOR..*. 



.*• 
Et *. 



,* 



4>. 



4i*««i*D3«i»*****«** 



•«••««*********** 



•«**«E3«*««*«***i 



♦. ITEM A . 

*. STRUCTURE.* 

•• •* 



YES .* ANV *. NO 

''*•**°^x"fE'a?k^* 

*. .* 

*. .* 

* VES 
•••• . 

* * • 

* F2 *. X, 

* * • 
•••♦ X 

• *• 
F2 *. 



«****•••*****•** 



•«*««P3«********* 



• * 
«, 



TEMP 

• * 

*. •* 
* NO 



.* X* MAKE AN ROV * 



*•**•••*•**•****• 



62 

.♦ IS 
.* Roy «. NO 

REQUIRED 




. X* 



:****G 3********** 

* 
* 

MAKE DVD * 

« « 

* * 



.• 




, * 


X 


• NO 


♦••» 




• • 




* F2 • 




« * 




*•** 



.* *. VES .* *. VFS 

». ARRAY .* X*. AnjUSTARLF .*.... 

*. .* *. " ' 



.♦ *. VFS 

*. FIXED .*.... 

*. SCALAR .* 



* • 

* F* * 

* • 
• ««* 



LIBRARY 

mm 



*«••«*«*•***•** 



STBASE 

* GENERATE * 

* CODE TO * 
,„,X* SET BASF *. 

* ADDRESS * 

* * 
*jt<««*««««i»******* 

**** 

* * 

* E4 *... 

* * • 
•*♦* X 

I*. 
.E* *.. 

^C 



,* 
,* 



OR 



? .* 



**•* 
• * 

• F* • 
» * 

•*«* 

F 
,* 
.♦ AN RpV 



•^AKF 

ROV AND 

CHAIN 



••*«*os********** 


* 


:? K : 


* 


...<x* 


* OIFINEO ITEM ♦ 


■♦ 


* 






, **** 




• * * 




..X* Al ♦ 




* * 


SETOVS 


SETDVA **•* 


***«*E5*«******** 


* 


RELOCATF * 


* 


BY DOPE ♦ 


....X* 

X ♦ 


wr : 


, * 




, A**************** 


*i** 


, 


* * 




» E5 * 


^ 




X 


*«•* 


**** 




* * 




• A2 ♦ 




* * 


**** 


**** 


• * 




X* »1 • 








«•** 


**•* 



*•** 

• • 
1 X* E5 * 

• * 
*•«* 



••*«J2******«*** 

« 
MAP ARRAY * 

* **•• 
. * * 

. . X* E« • 

* * 



ALVACA X 

♦ GENERATF * 

• rone to * 

* RFLOCATE RV 
VOA 



*•• 



*****K1 **•••**•»: 



•••*•••«•**•***• 



.* 



K2 



■X* 



CODE TO » 

RELOCATE * 

• BY VOA * 

* ACCUMULATOR * 

****i****f ******* 



VES 

'*« 
*. 



**** 

* * 

* Al ♦ 

* * 
*»** 

«•** 

* * 

* Al • 
« * 

• *** 
X 

', NO 

J5* '*. 

. « IS *. 
ROV ♦. 

REQUIRED .* 



•**«*K^* ********* 

* GENERATE ♦ 

* CODE TO • 

* SET ITFM * 

* AODRESS IN ♦ 

* ROV ♦ 
***************** 



***• 
« « 

* ft, * 

* 4 
**** 
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***** 
*jp « 

* Al» 



* * 
» CI ♦ 

* * 
• ♦♦♦ 



NO 



ii****Al **»****•*» 



*; 

• Al 



***************** 



.*. 




oSTRCMP .*. 


A2 *, 




A3 *. 


.* *. 




,* DOliS *. 


X*'. OF CHAIN 


*, 


oYES .* DEF NED *• NO 
X...*. STRUCTURING .*., 
*. HATCH .* 


. ♦ 


*• 


• 


*• .* 




*.aASE .* 


*• •* 




X *. .* 


♦ YES 




**•• * 






* * X 






* Al • 


X 




* • . 


*•«** 




**** , 


*IA * 




. NO 


• Al* 




JP2CP .*, 



****Hl, ********* 

* * 

* ERROR * 

* * 
***********li*ti* 



.♦IS ♦. 
N3 .* DEFINED *. 
......ITEM A SUBSET.* 

*. OF BASE .* 



JP5*1 



R4 



I *. 



.♦ ARE ♦. 
.♦ DEFINED ♦. 
, .X*. ITEM AND BASE. 
X ♦, SAME OATA.^ 

♦.TYPES. ♦ 

D ♦. .* 

• ** * 

***** 
»* ♦ ♦ 

* F« •X.. 



. YES 
• *• 
CI *. 



.* *. 

.♦CORRESPOND-*. NO 
..X*. ENCE .*... 



_NCE 

♦.DEFINING . 

*• .* 

*. .* 



C2 "*. 

.** DEFINED 

•X*. Item a 

*, STRUCTURE 
*• •* 

*. •* 
* NO 



D2 *. 

• IS * 

DEFINED 

ITEM 



*. 



.** OEfJmEO '♦. YES 
X^. ITEM ...... 



*. PACKED 
*• .* 

*. .♦ 
♦ NO 





jp?r 




. *. 

R5 ♦. 

*IS BASE*. 


YFS 




• 


DEFINED ♦. 




..c.X^. 




ITEM . 




X 


*, 


*rB\!V:** 




**** 




'* YFS 




« * 




. •**• 




♦ B5 ♦ 




„ ♦ 




♦ ♦ 




..X^ Al 




***♦ 




* 
♦ *** 
.*. 
C5 *. 

* *r 


YFS 




• 


^Icggr !: 




....X*< 





A LABEL .* 
*• .* 

*. .♦ 
* NO 



JP5*3 

YES .<! 
...♦. 

• « 

X 

**•* 

* • 

* 03 ♦ 

* ♦ 
*••* 



El 



*, 



IS 

COOED I*X, 

ARITH .♦ 
• .♦ 

♦• •* 
* NO 



jP5«r> 

YES .♦ 



• *. 

E2 

•*DE^ 
*V't, 



ITH .* 







.*. 






*d4??nI§*-*, no 


. YES , 


*' 


.*„ X*. 


I TEM DIHENS- .*.. 


X 


* 


lONEO .* 
*. .* 


*;«* 




*• .* 
* YES 


• * 






• D3 * 






« ♦ 




X 


• ♦*« 




♦ ♦*♦ 
* * 

**** 



**** 

* * 

* Al « 

* * 

***« 



****05********* 
» * 

» ERROR ♦ 

* ♦ 

*•*«*«*•******* 



»»** , * ARE ♦. 

* YES .♦ DEFINED 
85 ♦X....^. ITEM AND 



BASE SAME,^ 
♦. TYPES. ♦ 
♦. ■ * 



****Fl***»***** 

* « 
■I ERROR * 

• * 
*t,********#**** 



• *• 

F2 

YES .*' DEF 

>...*.ITEM V 
*. STR 



*. 

INED '*. 
ARYING .* 
ING .* 



**•* 

* * 

* B4 ♦X., 

* * 
**** , 

FS' 



**•« 

* 4 

* Fl « 

* • 
*«** 



ARE ♦. 

. r,,.„,S STftlNGi. 

♦. OF BASE .* 

'.TYPE .* 

*. .* 
* NO 



,* DE 
'il^^lDNE 



FINED **. Y 
QIMENS- .*. 



G3) 



*. 



*. 



: X*. ARRAY 

*. PACKED . 
*• •* 

*. .* 
* YES 



****l}tt********* 

* « 

* ERROR • 

* * 
*************** 



,*'k SfRUCfURl*. 



. JCf 

♦ . OF PACK, 
*. STRINGS 




ERROR ACTION IS TO 
OUTPUT AN APPROPRIATE 
ERROR MESSAGE 



.* 



tASE *. YFS 
NSTONED .*.... 

*. .* 



.* IS *, 
.* BASE *. NC 
,, X*. SUBSCRIPTED ,*,. 



*, 



* NO 



» * VPS .♦OR DEFINED ♦. 

* Al *X....*<.ITEM ADJUST- o « 

♦ * X *. ABLE »* 
**** „ *. „* 



*. PACKED . 
♦. • ♦ 
♦ . .♦ 
* YES 



*****)(,!,********** 

*CnMPARE DEFINED* 

*LENGTH AND POS • 

■ .-X* WITH BASF *. 

* L ES GT H * 

« * 



****j^********* 

* * 

* ERROR * 

* « 
*************** 
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•Table JI. Phase JI Aggregates Structure Processor 
r 



T T 

Main Processing 
Routine 
I- 



Statement or Operation Type 



Subroutines Used 



To re-order the STATIC AUTOMATIC 
and CONTROLLED chains and to proc- 
ess structures 



SCANA 



MAP,MAPA 



To scan down the COBOL chain for 
COBOL-mapped structures 



SCAN 



MAP 



To transfer items from the COBOL 
chain to the appropriate AUTOMATIC 
chain 



RECHAN 



None 



■+■ 



To transfer control from lEMSI to 
lEMJM 



TERMIN 



None 



To map COBOL structures 



MAP 



■+- 



NXTRF1,NXTRF2 



To Check non-COBOL structures for 
constant length 



MAPA 



None 



To find the next member of a struc- 
ture 



NXTRFI 



None 



To find the next element of a 
structure 



NXTRF2 



None 



•Table JIl. Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 
^ 1. 



Function 



MAP 

MAPA 

NXTRFI 

NXTRF2 

RECHAN 

SCAN 
SCANA 

TERMIN 



To map COBOL Structures 

To check non-COBOL structures for constant length 

To find the next member of a structure 

To find the next element of a structure 

To transfer items from the COBOL chain to the appropriate AUTOMATIC 
chain 

To scan down the COBOL chain for COBOL-mapped structures 

To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process 
structures 

To transfer control from lEMJI to lEMJM 
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•Table JK. Phase JK Aggregates Structure Processor 

r ■ ■ 



T T 

Main Processing 
Routine 
+- 



Statement or Operation Type 



Subroutines Used 



Scans AUTOMATIC, STATIC, and 
CONTROLLED chains 



CHNSCN 



ADKDV, CHKDEF, KiKDVD, MKRDV, 
PROCDT, PROCST, SETBRF, TERMWS 



+- 



Processes DEFINED items 



CHKDEF 



CMPILl, INOEJ, PROCDT, PROCST, 
STBASE 



+- 



+ ■ 



Processes structures (calculates 
offsets, multipliers, sizes, align- 
ments and padding; generates object 
code) 
^ „ 1. 



PROCST 



CMPILl, INOBJ, ELSIZ 



+- 



Processes arrays (calculates Mul- 
tipliers and generates object code 



PROCDT 



CMPILl, INOBJ, LOADCN, SP54 



Calculates storage offsets for 
adjustable items in structures 



PS25 



CMPILl 



+- 



I- 



alculates storage offsets for 
adjustable arrays 



ALVACA 



CMPILl 



+- 



+ ■ 



alculates storage offsets for 
adjustable strings 



ALVACI 



CMPILl 



+- 



+- 



Generates code to initialize string 
dope vectors for arrays of varying 
strings in structures 



SVARY 



CMPILl, INOBJ, IPDV, VOEJC 



). 

Generates code to initialize string 
dope vectors for varying, non- 
structured arrays 



+- 



VOBJC 



CMPILl, INOBJ, IPDV 



(. _ 

Generates code to calculate the 
starting address of storage for 
overlay defined items 



■+- 



STBASE 



CMPILl 



|. 

Adds text skeletons to the output 
stream 
^ _ 

Makes dictionary entries for dope 
vector descriptions 



■+ 



CMPILl 



None 



MKDVD 



ELSIZ 



^- 



Makes dictionary entries for record 
description vectors 



MKRDV 



MKCNST, CMPILl 



h- 



• + - 



Generates code to set the address 
in a record description vector at 
object time 



ADRDV 



INOBJ, CMPILl 



■ + ■ 



Calculates the length and alignment 
of scalar data items 



ELSIZ 



None 



I f- 



■+■ 



I Sets offsets for BASED variables | BASED 

L X 



None 



Section 3: Charts and Routine Directories 197 



iTable JKl. Phase JK Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



h 



■+■ 



ADRDV (JL) 
ALVACA (JL) 
ALVACI (JL) 
BASED 

CHKDEF (JM) 
CMPILl (JL) 
ELSIZ 
INOBJ (JL) 
IPDV (JM) 
LOADCN (JL) 

MKDVD 

MKRDV (JM) 

NXTREF/NXTRFl 

PROCDT (JM) 

PROCST 

PS25 

CHNSCN (JL) 

SETBRF (JL) 

SETDVS 

SP54 

STBASE (JM) 

SVARY (JL) 

TERMWS (JL) 
VOBJC (JL) 



(JM) 



Generates addressing code for AUTOMATIC RDVs. 

Calculates storage offsets for adjustable arrays. 

Calculates storage offsets for adjustable strings. 

Sets offsets for BASED variables,. 

Processes DEFINED items. 

Adds text skeletons to the output stream. 

Determines size of storage required for structure base elements. 

Initializes object code statements. 

Generates code to set up primary dope vectors. 

Generates object code to load object registers with constants known 
at compile time. 

Makes dictionary entries for DVDs. 

Makes dictionary entries for RDVs. 

Gets the next structure base reference. 

Processes arrays. 

Processes structures. 

Calculates storage offsets for adjustable items in structures. 

Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

Sets the reference to the current entry type 1. 

Sets the dynamic dope vector size for non-adjustable structures. 

Calculates base element multiples. 

Generates code to initialize starting address storage for overlay 
defined items. 

Generates code to initialize string dope vectors for arrays of 
varying strings in structures. 

Terminates object code. 

Generates code to initialize string dope vectors for varying, non- 
structured arrays. 
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Table JP, Phase JP Translator Defined Check 



.^ . y. 

iMain ProcessingI 
Routine 



Statement or Operation Type 



Subroutines Used 



■+- 



■+- 



I Scans DEFINED chain; checks 

I validity 

^ 



lEMJP 



GETCLS, GETLTH, STRCMP 



■+- 



I Checks that two structure descrip- | STRCMP 
jtions are the same and that they j 
jmay be validly overlaid j 

L .^ X 



None 



Table JPl. Phase JP Routine/Subrourine Directory 



r y 

I Routine/Subroutine | 



Function 



GETCLS 

GETLTH 

lEMJP 

JP8 

JP20 

JP200 

JP540 

jpsm 

JP542 
JP543 
STRCMP 



Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

Obtains length of string or numeric field from associated dictionary 
entry. 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 



Table JZ. Module JZ Compiler Control 



-^ . y. 

I Main Processing! 

I Routine | 
•+ 



Function 



Routines Used 



h- 



4 „. 

IRLSCTL, ZUPL, ZEND 



I Reconstructs the phase directory IIEMJZ 
I for the second half of the compiler] 

I I 
I Entry to OS/360 % BLDL | 
L . . J. 
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Chart 07. Pseudo-Code Logical Phase Flowchart 



*07 • 



***** A I ***•**•**• 
•SCAN LA* 

•-*-*-*-*-*-*-*-* 

♦ UTILITY * 

♦ SCANNING * 

♦ PHASE • 
***************** 



> •* 

*• •* 
* NO 



*****D2 ********** 
♦INITIAL LR* 

♦-*-*-*-*-•-*-*-♦ 
. X* CONSTRUCT P-C * 
• TRIPLES f=nR ♦ 
•DYNAMIC INITIAL* 
«*«*•**•»******•* 



*****C2 ********** 

• INITIAL LO* 
*-*-*-*-*-*-*-*-* 

, X+CONSTRUCT DICT:* 

♦ ENTRIES FOR • 
•STATIC INITIAL * 
***************** 



*****02 •*•*•••*•• 
•DO EXPANSION LG^ 

•-*-*-•-*-*-*-*-* 
<* EXPAND • 

• DO LOOPS • 

• • 

***************** 



***** El *••**••••• 
•EXPN EVAL LRfLS^ 
•-*-*-*-*-*-•-*-* 
•CONVERT EXPR- • 
♦ESSION TRIPLES * 
♦TO PSEUDO-CODE ♦ 
***************** 



*****f:i **••*•**** 
•STRING UTILS LV* 
*_*_♦_*_*_♦_*_*_* 

* PROVIDE ♦ 
•STRING HANDLING^ 

• FACILITIES ♦ 
***************** 

**** I 

* ♦ • 

♦ GI •. X. 

• * • 
• ••• X 

.*» 
Gl •. 
.* ANY •. 
.* STRING ♦. YES 
*. EXPRESSIONS ...... 



*****G2 ♦**♦♦**•** 
♦ STRING HANDL LX^ 
«_*_*_*_*_*_«_*_« 

CONVERT * 
•STRING TRIPLES ♦ 
« • 

***************** 



.X* 



.* ANY •. 

• •PSEUDD-VARS^. YES 
*. OR MULTIPLE .*.... 

*. ASSIGNS .* 



Jl *. 
.* ANY •, 
.* IN-LINE *. YES 
•• FUNCTIONS .*.... 



iX* 



*****H2 ********** 
•PSEUDO-VARS H8* 
' ' «-*-*-*-*-*-* 
CONSTRUCT • 
•PSEUDO-CODE FOR^ 
•PSEUDO-VARIABLS^ 
***************** 

', **** 
• • ♦ 

..X^ Gl • 



*.*-*-*-*-*-*-*-« 
X^ CONSTRUCT • 

• PSEUDO-COOC FHR^ 

• IN-LINE FUNCTNS* 
***************** 



.• ANY •. 
.♦ GENERIC ♦. YES 
. ARGUMENTS .♦..,. 
♦. •♦ 

♦. •♦ 
♦• •• 
• NO 



.• ANY ♦. 
.* CALLS OR •• 
►. FUNCTION 
•REFERENCES.* 



r.ENFRIC * 
• FNTRY NAMES ♦ 

***************** 



•****B4 *••*••••*• 
♦CALLS K FNS MM^ 
•-*-*-*-*-•-*-*-* 
■X^PROCESS CALL * 
♦E FN PROCEDURE ♦ 
♦ INVOCATIONS ♦ 
***************** 



•****r^ **•*«****« 

♦STRING LV^ 

*-*-*-*-*-*-*-*-* 

• PROVIDE ♦ 
•STRING HANDLING^ 

• FACILITIES * 
***************** 



D3 



• *• 



*. 



.♦ NEED 
.• TO *. YES 

•REORDER STRING.^.... 
♦. BUYING .• 
•.CODE •• 

'•'no 



***************** 



****•*****•«*•*** 



*****F 3 •*♦♦♦♦***♦ 
♦BR.ON.RETNS NA^ 

*-* -* -* _*-•_*-* -* 

• MAKE PSEUDO- • 
•CODE FOR BRAN- • 
♦CHES.RETURNtETC* 
*«***ii*********** 



G3 



*. 



.ALLOCATE,. 
•DISPLAY DELAY. YES 
♦.FREE OR WAIT ...... 

*. STATEMENT. • 

•. .• 
•. .• 

♦ NO 



.♦ *. 

.• ANY 

•c RECORD-I/0 



.• ANY •. 
• •STREAM-I/Ot*. YES 
•• OPEN, OR ...... 

•o CLOSF .* 



*****(;4********** 
•0/S SERVICES NG* 
•-*-•-•-*-*-*-«-* 
.X^ MAKE LIB CALL • 
• SEQS FOR DELAY * 
•C DISPLAY STATS^ 
***************** 



*****H4*** ******* 
♦RECORD-I/O NJ^ 
•-*-*-*-*-*-*-*-* 
.X^ HAKE LIB CALL ♦ 
♦SEOS FOR RECORD^ 
♦ ORIENTED I/O * 
***************** 



*****j<,********** 
♦STREAM-I/0 NM* 
*-•-•-«-•-•-•-*-• 
=X* MAKE LIB CALL * 
•SEOS FOR RECORDS 
• ORIENTED I/O • 
***************** 



*****B 5* ********* 
•COMPILER FNS OB^ 
•-*-•-*-*-*-*-*-• 
• PROCESS * 

•COMPILER FNS E ♦ 
♦PSEUDO-VARIABLS^ 
***************** 



*****C ;********** 

• ASSIGNMENT OE ♦ 
•-•-♦-•-•-•-*-*-* 

• CONSTRUCT * 
•PSEUDO-CODE FDR^ 

• ASSIGNMENTS ♦ 
***************** 



*****05******^^^* 

♦ RELEASE * 

♦ UTILITIFS, ♦ 

♦ lEMLA, AND ♦ 



iLn. An 
lEHLV 



***************** 



*****£ 5********** 
•CONVERSIONS OG^ 
•-•-•-•-*-*-*-*-* 
♦EXAMINE OPERAND* 
* AND DETERMINE ♦ 
♦IF DONE IN LINE^ 
***************** 



NO .♦ IN-LINE ♦. 

,..*. CONVERSIONS , 

♦.2ND PASS n* 



*****Q5* ********* 

♦CONVERSIONS OM^ 

«-*-*-*-*-*-*-*-* 

♦ GENERATF ♦ 

♦ IN-LINE CODE • 

♦ 2N0 PASS • 
***************** 



.• IN-LINE ♦ 

». CONVERSIONS 
•. 3RD PASS ,* 



► *** J 5* •**♦«♦**♦ 
:ONVERSIONS OP* 
-*-♦-•-•-♦-♦-*-* 

GENERATE * 

IN-LINF CODE ♦ 

3RD PASS 



******** 



k* **«*«*« 



0* ANY *, 
.* DATA OR «„ YRS 
«r FORMAT „*,,c. 

♦. LISTS .* 



*****K4«*««****** 
•DATA FORM NT,NU* 
*-*-*.*-*.«-*_*.« 

.X* M«KE LIB CALL * 

♦ Si^OS FOR DATA/ * 

* FORMAT LISTS * 
********«***••**• 



****«KS *•*•♦«**•« 
•CONSTANTS OS* 

*-*-*-*-«-*-♦-*-♦ 
•CONVERT CONSTS * 

♦ roREOUIRFn * 

* INTERNAL FORM ♦ 
***************** 



***** 

*-e ♦ 

* A2* 
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Chart LA. Phase lA Overall Logic Diagram 



♦LA * 

• Al* 



**4i*«Al ********** 

* INITIALIZE * 
♦FLAGS. POINTERS^ 

♦ AND LOAD ♦ 

♦ ADDRESS ♦ 

* ♦ 
*****«•**••****** 



note: 

THESE ROUTINES ARE SCAN 
RQUTINgS CALLED BY 
C0»1PIl(;R PHASES lEMLB 
THROUGH lEMOE. 



*****A3 ********** 
•CONSTRUCT DOPE * 

* VECTOR IN * 

* WORKSPACE FOR ♦, 
•RASED AGGREGATE* 

***********i^**** 



****A <»••****•** 

* 4 

,K* RETURN * 

♦ 4 
*************** 



«****B1 ********** 

* * 

* TRANSFER TO • 

* APPROPRIATE • 

* SCAN ROUTINE ♦ 

* ♦ 
***************** 



***** 
*LB * 
♦ A2* 



*****B3********«* 



***************** 



HV3,NV3A 

*****C 3********** 



*T0 OUTPUT BLOCK* 

* * 

***************** 



****B4********* 

* * 

► RETURN ♦ 

¥ * 

*************** 



«**ili*01 ********** 

* * 

* MOVE CURRENT * 

♦ TRIPLE TO ». 

♦ OUTPUT ♦ 

• ♦ 
***************** 



*****D2*^^ *•*♦**• 



***************** 



*****D3********** 

* • 

* SCAN FOR * 
K* REQUESTED *. 

• TRIPLE ♦ 

• * 
***************** 



****[)4«******** 

* * 
.nX* RETURN • 

* • 
*************** 



***il>*El ••****••** 

* * 

* MARK CURRENT * 

* INPUT BLOCK *. 

* WANTED • 

* * 
***************** 



♦ MARK CURRENT ♦ 

* INPUT BLOCK ♦. 

♦ MOT WANTED ♦ 

• • 
***************** 



. X*. AT SC6 OR SCT. 
». 
*. 
♦. • 



*****F 3*********: 



**************** 



*«***F4********** 

* * 

* ACCESS * 
X* NEXT *. 

* TRIPLF * 

* * 
*«*•****•***•**** 



****f; ********* 

* • 

* RETURN * 

* « 
*************** 



* MARK CURRENT * 

♦ INPUT BLOCK ♦. 

* WANTED ♦ 

♦ ♦ 

***************** 



* MARK CURRENT ♦ 

* INPUT BLOCK *. 

* NOT WANTED * 

* * 
***************** 



•****G?* ♦*♦****** 


S3 *. 


♦ UPDATE INPUT * 


.* WAS *„ 


♦ POINTER TO * 


.* ENTRY AT 


X*RFGISTER STATUS^.... 


..„X*.SC11 OR SC12 


* BYTES • 


*. • 




♦• •♦ 


***************** 


♦ . .* 


X 


* YES 



*****(;^ ********** 

* HOVE THE * 
♦CODE DELIMITED * 

,X* BY JMP TRIPLE *, 
*T0 OUTPUT BLOCK* 

* • 
***************** 



♦ ***G')********* 



**«*«•**«****** 



SCK 

*****jl ********** 

• CONVERT THE ♦ 

♦ SYMBOLIC ♦ 

• INPUT POINTER ♦. 

* TO ABSOLUTE ♦ 

* * 

****:|i************ 



***** J? ********** 



***************** 



**** J 3********* 

» * 

» RETURN ♦ 

• * 

*************** 
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chart IB. Phase LB Overall Logic Diagram 



♦tB • 



]Ci BEG IN I 



••****«•«**•«•««« 



• NO 



jl*«i«i*C2********** 



•««••**•*•*••**«• 



X 
•LO • 



'Ui. 



res 



« MAIN * 






• ANY 
« *TTI 



AL * 
t * 



'\\i 



UNO 



lUTO 



•«E3 *«**«***** 



CHAIN 



• MAIN '«■ 

* ATTRI 



^?6Rf AL ': 

rRIBUTF • 



INITIAL PRKESSING 

* ENTRY • 

* TO MAIN *. 

* * 



%. dH .> 



•«*«(;3*****«*4i« 



• YES 



►;•* itI 

*. AR 



S 

H AN 
RAY 



t*H3*********« 



MAIN \ 

* * 

* LOCATE • 

* INITIAL ENTRY • 



•••«••**•«•***•«* 



.X 

CNSTMK X 

**««4«2******««** 

• OUTPUT • 

• SN2 AND * 

• ASSIGNMENT ». 

• TRIPLES * 

• • 
<t****m** ********* 



****H J********* 
• * 

» RETURN • 

» « 
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Chart LD. Phase LD Overall Logic Diagram 



*L0 ♦ 
• Al* 



• SCAN STATIC * 

HA IN FOR * 

INITIAL * 

iteHS ♦ 

« * 



. X* 



ST0006 X 

LOCATE ♦ 

INITIAL * 

VALUE * 

STRING * 

* 



IS *. 

ATA •. YES 

EH AN .*.... 

Rrav .♦ 

* NO 



GAAl 

***«*( 2*********' 

♦ SCAN 

♦ INITIAL 
• ..X* VALUE 

♦ STRING 
* 



C3 ♦. 
» IS •. 
ITEM A *. 
REP .« 

FACTOR .* 



CNSTMK 

* OBTAIN • 
CORRECT ENTRY ♦ 

ON * 

CONSTANT * 

• CHAIN ♦ 



, .X* 



♦ CORRECT ENTRY * 

♦ ON • 

* CONSTANT • 

• CHAIN • 



ST 9999 X 

: mm' : 

« * 



ST«P8B X 

* RESET * 

♦ INITIAL ♦ 



*«*«*******«4i*«i«* 



GI «. 
• * *• 

NO .* END < 

..*. OF CHAIN 

*• •* 

*• •* 

*• •* 
• YES 



• CONVERT TO 

• FULL WORD 

• ilNARY 



|r**E3«i4i**«i«*«*« 



GAC3 

**«** 04********** 
• MAKE 



m 






**«***.****«4i«4i*«« 



SET UP 
ENTRIf 



I**************** 



ST0006 X 

«***«iF3****«****i 
* POINT 



*4i****««**«****4ii 



***** 
*LG ♦ 
* Al* 
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Chart LG. Phase LG overall Logic Diagrs;!! 



•LG ♦ 
* Al* 



LGOOOO Jt 

•INITIALIZATION • 



•••••«*•*•*•••••• 



I'^ttoliK f&^^tItpleJ 

. ♦ OF interest * 

• « 

• Bl ♦ 

• • 



• *• 


S*««*C2********«* 


CI «. 


.* •• 


• PUSH DOMN DO * 


.* •. YES 


...xi iSlf'iS.w? : 


DO .*..... 


*•. " .* 


• NEM STACK • 


*• •* 


♦ ENTRY • 


*• •* 




• NO 


, 




. «*** 




• • * 




..X* Bl * 




* • 




*•«* 


• ^» 


LGPPll 


Dl *. 


**«**02«********* 


. * *• 


• PUSH DOWN 00 ♦ 

• STACK AND ♦ 
...X* INITIALIZE ♦ 


.♦ *. YES 


• ITOO ••••••a 




• NEM STACK ♦ 

• ENTRY * 


*•• ••* 


*• •• 


*«**««**«««***4i4i* 


* NO 





A3 * 

,* 
,* 
*. WHILE* 



.X* 



• 
ENERATE TEST ♦ 
OOE FRDH 69 ♦. 
STACK ENTRY » 

* « 



• *** 

* * 
,.X« 81 ♦ 

* • 



»*(|)**«*«***** 



tCh stOr 



«•*«•••*••*«*•*•* 



***** 

•LS * 
* Al* 



**«««03********** 

CONTROL ♦ 

|XT * X * 

♦ ....X* Bl 



xMSJiifsi" 

♦ SKELETdN IN 

♦ STACK ENTRY 
*«**«****{****« 



..'■•'•••.. 

.* DO* •• YES 
*• OR ITDO' ••••••• 


*i***P2****«***** 

...J W'F :. 


*♦. .*' 

•• •« 

* NO 


* 00 STACK * 



.♦ CONTROL 
♦. VARIABLE 
*, 



♦ SYHBOLTC REG • 
(• FOR LOOP •• 

• CLOSE • 

* * 
*****«*•**«*»•*** 



ii**F3********** 



lyze the * 

ESSIQN IN • 
ING TEXT ♦ 



***************** 



* analyz 

, X* EXPRE" 

• ENSUI 



• •* 
•• •* 

* NO 



OR DO . 
*. EQUALS .« 



LG0 2* 

•****H2 ********** 

* GENERATE TEXT * 

• TO ASSIGN ♦ 
...X* PRECEDING ♦. 

* EXPRESSION TO • 

• A TEMPORARY * 
***************** 



.X*ITERATIVE PART,*.. 

*. OF THIS .♦ 

♦ .SPEC o* 



*****H4********** 

* * 
» GENEO.ATF TEST • 

. X* AND *, 

* COUNT CODE ♦ 

* • 
***************** 



• *• 

1 *. 

* 


*, 
** 


^YFS 


LG?"2l 

*****J2********** 
*SAVE LOOP ENTRY* 
* AND NEXT • 


,* 




•• * LABiL REF Mn * 
* 00 STACK * 

«*********«•***«* 


» NO 








• 


X 

**** 

* * 

* A3 * 

* * 
**** 








X 

***• 

* * 

* Bl * 

* * 
***« 
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***** 

♦ LS * 

* Al* 



«****A1**** ****** 

* INITIALIZE ♦ 

* WORKSPACE * 

* AMD TEMPORARY * 

* DESCRIPTION * 

* STACK * 
***************** 

**** 



«**« 

X 
' *****B1********** 

* LA ♦ 

*.*-,*.*-*-*-*-*-* 

* USE SCI TO * 
*LOOK FOR TRIPLE* 

* OF INTEREST * 

***************** 



E0P2 

***«*C2 ********** 

* MARK NEXT ♦ 

* PHASES IF • 
,..X* WANTED AND *. 

* RELEASE LS * 

* ♦ 
***************** 



***** 
*LV * 
* Al* 



• •* 
*• •* 
* VES 



* SET UP • 

* OPERAND * 

* DESCRIPTIONS * 

« * 

***************** 



*****F] ********** 

* DETERMINE * 
*CHARACTERISTICS* 

* OF RESULT • 

* * 
***************** 



,* STRING *. NO 
TYPE .♦... 
*. RESULT .* 



.STRING 

*****H1 ********** 

* OUTPUT * 

* NECESSARY * 
<* TRIPLES AND * 

• TEMP • 

• DESCRIPTIONS * 
***************** 



.* OPERAND *, 

,.X*. CONVERSION . 

*. REQUIRED .* 



• *• 

6? *. 

.* *.. 

.* IS *. 

». OPERAND 
*A CONSTANT.* 
*• • * 

*• •* 
* NO 



CONVT 

****4):2 ********** 

• CALCULATE * 

♦ BASE, SCALE * 

* MODE, PREC., * 

♦ OF TARGET * 

* * 
***************** 



*****Q2 ********** 

* SET UP TO ♦ 

* GET OBJECT * 

* TIME * 

* WORKSPACE • 

* FOR TARGET * 
*•« ************** 



**** 

* * 

: X* F3 * 

• * 

**** 



* TEMPS USED • 

* FROM TEMP * 

* STACK * 

* * 

***************** 



*****K1 ********** 

* ADD ANY * 

* RESULT TEMPS * 
» TO TEMP * 

* STACK * 
« * 
***************** 



***************** 



REVERSE 
SOURCE AND * 

• TARGET IN *. 

♦ TEMP STACK * 

* IF NECESSARY * 
***************** 



CONST 






*****(: 3********** 




* CREATF 






* DICTIONARY 






.nX* ENTRY FOR 






* TARGFT 






* CONSTANT 






***************** 




**** I 






• * • 






* F3 *.X. 






* * . 






**** X 






ARITH2 .*. 




LRFLl 


F3 *. 




*****F4 «****•**«* 


• * *o 




* GENEPATF * 


,, * * 


NO 


* PSEDDO-COnF * 


..X*. FIXED POINT 


« *. « o . 


-, .X* FOR FLOAT * 


*. OPERANDS .* 




* EXPRESSI3N * 



***************** 



«***G3********* 

CALCULATE 
SHIFT FOR 
ALIGNMENT 

***************i 



FXCl 

*****H&«********* 

* GENERATE * 

* PSEU00-C3DF * 
, , -X* FOR FIXED * 

* BINARY * 

* EXPRESSION * 
*****•*«*•***••** 



FOR DECIMAL 

• SHIFT IF » 

* NEEDED * 

***************** 



*****K3********** 

* GENERATE * 

* PSEUDO-CODF ♦ 

* FOR FIXED *, 

* DECIMAL * 

* EXPRESSION ♦ 
***************** 



*****K^*** ******* 

♦ COMMON * 

* WORKSPACE rop, * 
TEMPS U'SF.n *» 

<■ TF PTSSIBLP * 
« * 

***************** 



■X* 
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♦ LV ♦ 

* Al» 



STUTO X 

• I^4ITIALIZE * 

• COMMON ♦ 

• TRANSFER • 

• VECTORS * 

« * 



• 

• ZSTUTl • 

t * 



THESF TWO ROUTINES AUr 



► * 

* ZSTUT2 * 



.* IS *. 

,• SOURCE « 
, OPERAND A 
••CONSTANT .' 



««**«B1 ********** 

* CREATE NEW * 
DICTIONARY * 

ENTRY FOR *, 

* CONSTANT ♦ 

* * 
***************** 



, X* 



iSTRUT2 X 

♦ DETERMINE TYPE * 
*nF STRING DOPE * 
» VECTOR * 

♦ REOUIREO * 

♦ * 



LSUT17 .♦. 

C2 ♦. 
.*RFSULT *. 
.* STRING *. YES 
*. LENGTH .*.... 

*. > 256 .* 



**«**C3********** 

* CONSTRUCT * 
X* aUY-ASSIGN * 

* TRIPLE * 

* « 
••«*****t******** 



* GENERATE * 

* PSfUDO-CpOF • 

* TO fNITIAU?E * 

* DOPE VECTOR * 



• CONSTRUCT ♦ 

* ASSIGN * 

• TRIPLE • 

* • 



*«***n4********** 

• SET DOPE * 

• VECTOR * 

* REQUIRED BIT * 

* ON In DICT • 

♦ FOR STRING * 



* ASSIGN AND * 

♦ ANY TMPD * 

• TRIPLES * 

* « 

«*****«******4i*** 



* INCREMENT * 

* RETURN AODR * 

* OEPENOING • 

* ON TYPE OF * 

* OOPE VECTOR ♦ 



LSUT22 .*. 

F2 *. 
.*STRING *. 
,*OOPE VECTOR*, 
♦ . RFSULT 
*. REOUIREO 



, * 



.* 



► RFTIIP.N « 



* RETURN * 

* DESCRIPTION * 

* UF RFSULT * 

* STRING • 

* * 



««**H2***«***** 

* * 

• RFTURN * 
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***** 

♦ LX • 

♦ Al* 



*****A 1 **•***«*** 



* INITIALIZE 



••****««*««i*****« 



**i)i**BX ********** 
♦ LA * 

*-i|i. *_*-*-*-«.*-* 

..X* USE SCI TO ♦ 
. ♦LOOK FOR TRIPLE* 



LU2 

*****A5 ********** 

* GENERATE * 

* PSEUOO-CODE * 
...X* FOR ♦. 

* NOT OPERATION ♦ 



***************** 



,♦ CAN *, 




**** 


.♦ IN-LINE 


*„ NO 


* 


CODE BE 


.♦••» 


.X* K2 


• .GENERATED. 


* 


* 


*> .* 




**** 



***i|i*C2********** 

* * 

• MARK ♦ 
<♦ PHASE MP ♦. 

♦ IF WANTED ♦ 

* * 
***************** 



.X* 



***** 

♦Me ♦ 

* Al* 



,* 
> • * 
* NO 



*****C5 ********** 

* GENERATE * 
PSEUOO-COOF ♦ 

FOR * 

* CONCATENATION * 

* OPERATION » 
***************** 



Ul ♦. 
♦ ♦. 

STRING ♦• NO 
OPERATION .*... 
.* 



02 



♦ . 



*, 



*. 



,* 
* 
♦ YES 



STROP S 

*****E1 ********** 

♦ * 

♦ SET UP ♦ 

♦ OPERAND ♦ 

♦ DESCRIPTIONS ♦ 

♦ ♦ 
***************** 



*****(:]*****•**** 

* DETERMINE ♦ 
♦CHARACTERISTICS^ 

* OF RESULT * 

* * 

***************** 



BOOL ♦. VES 
FUNCTION ...... 

*♦. .♦* 
♦• .♦ 

♦ NO 



*****E2*******^^* 

♦ SET FLAGS ♦ 

♦ ETC. FOR ♦ 

♦ OTHER TRIPLE ♦ 

♦ TYPES ♦ 

♦ * 
***************** 



*****F2*** ******* 

* * 

* MOVE TRIPLE ♦ 

* TO ♦ 

* OUTPUT ♦ 

* ♦ 
***************** 



03 *. 
.* CAN *. 

.♦ IN-LINE ♦. 
. X*. CODE BE 

♦ .GENERATED.* 



*. 



. • 



.* 



Gl 



♦ . 



♦. 



NO .♦ OPERAND 
...♦. CONVERSION .♦ 
♦.REQUIRED .♦ 
♦ . •♦ 

♦. .♦ 
♦ YES 



•-♦-*-*-*-*-*-*-* 
♦GENERATE PSEUDO* 
♦-CODE TO CONV- * 
* ERT TO STRING ♦ 

***************** 



*****f 3********** 

♦ * 

♦ SET UP ♦ 

♦ OPERAND ♦ 

♦ DESCRIPTIONS ♦ 

♦ ♦ 
***************** 



*****|: 3 ********** 

♦ * 

♦ SET OP ♦ 

♦ CODE TO * 

♦ NC.OC.XC ♦ 

♦ * 
***************** 



.♦. 
G3 ♦. 

ASSIGN '* 
TRIPLE 
♦.REQUIRED .* 
♦. .♦ 

*• .* 
* YES 



0*0 




LIL8 


E4 ♦. 




*****Eb«*«******* 


.* *« 




• GENERATE * 


.* ANO-OR 


*. YES 


* PSEUDO-CODE ♦ 


, OPERATION 




o,oX^ FOR * 




* 


*ANO-OR-EXCL.OR * 


*. * 




* OPERATION ♦ 


*• t * 




***************** 



*****F4*********« 

♦ GENERATE ♦ 

♦ PSEUDO-CODE ♦ 

♦ FOR ♦. 

♦ COMPARE ♦ 

♦ OPERATION ♦ 
***************** 



,* 



RELSTK X 

•****F 5* ********* 

* RELEASE * 

* ANY TEMPS ♦ 
,..X* USED FROM * 
X * TEMP STACK * 



***«*••*********• 



, AODSTK X 

, *****G5 ********** 

♦ ADO * 
, * ANY TEMPS ♦ 

♦ CREATED ♦ 

♦ TO * 

♦ TEMP STACK ♦ 
***************** 



*****H2********** 

* * 

* CREATE MASK * 

* FOR ♦ 

* BOOL FUNCTION ♦ 

* * 
***************** 



SENERATE 
»SSIGN_TRIPLE 



***************** 



LENGTH 
KNOWN . 


♦ 


X. 


*. •♦ 




, 


♦. .* 




« 


» YES 




♦♦♦* ', 

♦ ♦ . 

♦ K2 ♦.X. 

♦ ♦ . 






♦ ♦♦* , 


« ♦. 




LIBl X 

♦ ****K2 **«******♦ 


Kl *. 








* GENERATE ♦ 
...x: "^^U^O-COOF * 


LENGTH 


♦. VES 








* 


* CALL LIBRARY * 


*. .♦ 






♦. .* 




***************** 
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*HB ♦ 
• Al* 



IZATION. 

« LOAD ICRATCH. 

* GET SCRATCH 

* STORAGE 

* FOR STACK 



NBOOOl X 

♦ LA * 

♦ USE 

•LOOK F- , 

♦ OF INTEREJ 



FOR TRIPLE* 
INTEREST • 



.♦ PSEUDO- *. YES 
». VARIABLE .*.... 

♦. PSI .♦ 



«**««(;2********** 

• IDENTIFY * 

• PSEODO- • 
.X*VARiA|LE. HAKE *. 

• STACK ENTRY * 



» SET LEVEL AND " 

* COUNT T 

X* AND SE 

♦ TO SCAN FOR 



PSEL . 
VARIABLE 
, PSI' 



PLACE MARKER 
•AND TMPD ENTRY • 
<* IN STACK. ♦. 

♦ RESET TRT ♦ 

* • 



.*• 

03 ». 
.♦IS *. 
.♦PSEUOO-VAR *. NO 
.X*. A DATA LIST .*... 

*. ITEM .♦ 
*. .* 



..X* J4 ♦ 



• •* 

• NO 



, MARKER 

• X* SAVE POINTER 
» TO CURRENT 



♦MOVE ANY 



.♦ SIMPLE ♦. YES 
>. ASSIGNMENT ...... 

*. .♦ 

♦ . .♦ 



.♦ HULT ♦. 
.♦ ASSIiSn or ♦. YES 
<♦. PSV SWITCH ...... 



MBlJin 

• RESET INPUT ♦ 

* POINTER TO ♦ 
,..X^ START -- 



SSSIC 



OF 



***********4i**«** 



(**F:4**iIi*«*«*«4i 

♦ RESCAN ASSIGNS ♦ 

• AND ASSOCIATE ♦ 
-X* THPOS FROM ♦ 



.♦ PSEUDO- 
». VARIABL' 

♦.ARGUMEK. . 
♦. .♦ 

♦• .♦ 
♦ NO 



..X* Bl ♦ 

MBPna" 

♦ MAKE ENTRY ♦ 

♦ IN STACK FOR ♦ 
...X^ ARGUMENT. ♦ 

♦ ADO 1 TO COUNT ♦ 

♦ * 



MB13«0 

* RESET MULT ♦ 

♦ ASSIGN AND * 
..cX* PSV SMITCHESn ♦ 

♦ :lEAR STACK ♦ 

* • 



***♦ 

• • 

♦ Bl ♦ 



> .♦ 
♦ YES 



NO r » PSEUnO- 
,..♦. VARIABLE 
*. TMPD 



♦ ♦♦* . 

I' * r, 

► J* ♦. X. 



MBDCl" X 

•♦♦«*J1 ♦•***♦♦*•* 
♦RELEASE SCRATCH^ 

♦ STORAGE. ♦ 

♦ RELEASE ♦ 

♦ lEMMB, lEMHC ♦ 

♦ * 



• ft ♦X. 
» * 



* * 

♦ GENERATE CODE * 
, ♦ FOR PSEUDO- ♦ 

♦ VARIABLE ♦ 

* • 



♦ •*** 

*MD * 

♦ Bl* 



208 



Cfjart MD. Phase yiD Overall Logic Diagra.n 



• HO ♦ 

* BI* 



X 






( ' ! 


•4i***B 1**** •*•*•• 

♦ SCAN TEXT ♦ 

♦ FOR TRIPLE ♦ 

♦ OF INTEREST • 


























* * 








***«jti**«««*««i**** 








•x 

• *• 


LFARIN .♦. 


LFARtl 




CI *. 


C2 ♦. 




.♦ IS *. 


.♦ ♦• 


♦ MAKE ENTRY ♦ 

• IN STACK ♦ 




.♦ IT A ». YES 


.* IS ♦. YES 
...X». IT ADDR .♦ 




*» FUNCTION .*...• 


I ' 


*. trTple .» 


••• • •! r^wr^ • •..«■ 


*• •* 


*♦. t*' 


♦ • 




*. .» 


♦. <,* 


•♦•♦♦♦♦*♦♦♦♦*♦♦•• 




♦ NO 


♦ NO 

. ♦♦•* 






I 


. ♦ * 
..X^ Bl * 

♦ • 






X 


♦ *♦• 






.*. 


LFIGN .♦. 






Dl ♦. 


02 ♦. 


Mt*»m*D3********** 




.•IS *. 
.• IT AN •, YES 


.♦ IS ♦. 


♦ • 




.♦ IT AN ♦. YES 


♦ REMOVE ♦ 




*• IGNORE •• 


...X^. IN-LINE o*....i 


...X^ TRIPLE ♦... 
♦ FROM TEXT ♦ 


t r 


*. TRIPLE .* 


♦.FUNCTION .♦ 


•• •• 


♦. .♦ 


♦ ♦ 




*• •* 


♦. .♦ 


♦♦♦♦♦♦•*♦♦♦♦♦♦♦*• 




* NO 


• NO 

*•♦• 






^ 


. • • 






« 


..X^ Bl * 








• • 






X 


♦ ♦*• 






• *• 


LFSPEC .♦. 






El ♦. 


E2 ♦. 


♦♦♦•♦E3*^»^^^^^^^ 




.* IS IT *. 
• •A SPECIAL •• YES 
• • ASSIGNMENT •• 


• • ♦• 

.♦ IS IT ♦. YES 


♦ MAKE ENTRY ♦ 

...x:to%M* :... 

♦ BUY TRIPLE ♦ 




...X^. AN IN-LINE •*..... 




*. TRIPLE .• 


♦.FUNCTION .♦ 


•• •* 


♦. •♦ 


♦ * 




•• •• 


♦. •♦ 


•*«***4i«««««i*«*«* 




• NO 


♦ NO 








♦♦♦♦ 






« 


. ♦ ♦ 






• 


..X. Bl ♦ 






X 


♦♦♦• 






• *» 


LFCOM .♦. 


LFOR 




Fl *. 


F2 ♦. 


• ****F3**«*4i****^ 




.♦IS ♦. 


.♦ ♦. 


♦ INSERT A ♦ \ 

♦ DESCRIPTION ♦ 




.* IT AN •. YES 


.♦ IS IT ♦. YFS 




*• ARGUMENT «•..••> 


...X^. AN IN-LINE ....... 


'"'I THj^'^mir :••• 




•. TRIPLE .* 


♦.FUNCTION .♦ 


*. •• 


♦. .♦ 


♦ ♦ 




*• •• 


♦. .♦ 


«****«i**««*«**««i« 




• NO 


♦ NO 

. ♦♦♦♦, 
. * ♦ 
..X* Bl • 






i 


* • 






♦♦•« 






• •a 


.*. 


SNAKE 


LFHOVE I 


Gl •• 


G2 ♦. 


•*4i**G3*****«««** 


*«***G4***«**«*** , 


.♦IS ♦. 


. ♦ ♦. 


• • 


♦ MOVE CODE ♦ 


.« IT AN ♦. YES 


.♦ IS IT ♦. YES 


♦ PROOUCE ♦ 


♦ TO OUTPUT ♦ 


♦ENO-OF-FUNCTION*..... 


...X^. END OF AODR .♦•.... 


,,ct* APPROPRIATE *.,- 
♦ IN-LINE CODE ♦ 


...,X^ RFSFT SCAN ♦.... 


*. TRIPLE ,♦ 


♦.FUNCTION .♦ 


♦ PARAMETER ♦ 



**4i*««* •*****««•• 



*•***•*«•««**««*• 



*••*♦ 
♦ME ♦ 
♦ 81^ 
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***** 

*ME • 
* Bl* 



*-«-*-*-«-*-•-*-* 



ORAGE. SE 

»&EUl:l* 



?EL 
UR 
RI 



ELETE 

URRENT 

-■PLE 



«*••*****••*••*** 



IGNORE.* IS IT *. 

.*. IGNORE . 

♦.OR DOUBLE.* 
*.COHHA.* 



*****C 1 «****•**•* 



•*******•**«*•*** 



* PLACE SECOND * 



****«••«***«•***• 



01 «. 

.•IS ♦. 

.* IT A *. 

*. FUNCTION . 

*. HARKER .* 

*• •* 

*• .* 

• NO 



El *. 
.* IS ♦. 

.♦ IT AN ' 

*. END OF 

•.FUNCTlgN •■ 
• TRIPLE.* 



SFUNC .*. 

D2 «. 

.*SUBSTR *, 
. INDEX. UNSPEC*. YES 
...X*. COMPLETION ...... 

••OPTIMli- .* 
•.ABLE .• 
•. .* 
* NO 



••*««I)3 •*«*•**•** 

* UPDATE STACK. ♦ 

* RESET CFLA(5, • 
X* SET ARGUMENT • 

* SMITCH ON ♦ 

* * 
***«*•*****«*••** 



«****E 3********** 

* yQATi STACK. • 

• SET CFLAG-2. * 
<• SET ARGIWENT * 



**•***•••***•••** 



.* IS ». 

NO .* IT A *. 

i..*. OICTIONARV .♦ 
♦. REFERENCE.^ 



•****F4««*******« 

* * 

* CONSTRUCT * 

* TDB FROM • 

* TMPDS • 

* * 
***************** 



*«**«E5****«***** 
*CONSTRUCT TDB. ♦ 

* PLACE FIRST ♦ 
•TRIPLE OPERAND * 

* INTO FIELD 6 ♦ 

* * 
***************** 



Fl *. 
•• I? IT *. 
.•ARGUMENT TO*. YES 
*. ONE OF THE .*.... 
*.RELEVANT .* . 

*. FNS .* 



* NO 



**** 

* 4 

► B5 * 

• * 
***• 



*****P2********** 



******•**•*•*•**« 



***«*F5********** 



***************** 



" '5 

IT FN 



OF PROGRAM 


*.... 


*. CFLAG'2 .* 


*. TRIPLE .* 


, 




*. .* 




*. .* 


*. .• 


X 


*. c* 


* YES 


**** 


• YES 




• * 

• CI * 




X 




^ 


***** 


••»♦ 


^ 


*HG • 




_ 


***l* 




X 




••*«*H2*«******** 


* 




• RESET CFLAG * 

• FROM STACK. • 

• MOVF TRIPLE • 

• TO OUTPUT • 











*****G3****«***** 

* CONSTRUCT TDB • 

* FROM TMPOS. * 
X*CHECK ARGUMENTS*. 

* IN PSEUOO- * 

* VARIABLE CASE ♦ 
••«*•************ 



.X* 



•****G<^********** 

• INSPECT • 

• ARGUMENTS • 
AND PROOUCF • 
APPROPRIATE * 

• IN-LINE CODE ♦ 
**•••**•**•«*•*«* 



*«******«**«***«• 



•****H4********** 



**••*«•**••*•*•** 



*****JZ*««******« 



IF CFLAG ■ 2 

SET ARGUMENT 

SWITCH ON 



••«**********•*** 



•****j^********** 

• « 

• IF CFLAG-2 * 

• SFT ARGUMENT • 

• SWITCH OFF * 

• * 
****••*•««*•*•*** 



**** 

• « 
► CI * 

• • 

«*** 
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*MG • 
* Al* 



• STORAGE ♦ 



♦-♦-*-♦-»-•-♦-*-* 



4i*««**4>**4i**«««** 



• *• 

CI *. 
.'► IS ♦. 
.* IT A *. YES 
*. FUNCTION .*.... 

♦ . TRIPLE .• 

», .« 



, X*. BE PRE 



, * 



«. YES 

u 



IN SfAC 



Dl 



• *• 



, * * 
,.X* Bl ♦ 

« * 
• *«« 



*. 



. * IS 

.♦ IT AN *. YES 
*. IGNORE TRIPLE.*.... 

*. .* 

*. •* 
*. ,* 
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0SPY3 

*****04******«*** 

* CHECK THAT * 

* OPEftANO IS * 
. .X* CHARACTER * 

* VARIABLE * 

* * 
*****•*••******•* 



***************** 



*****F3********** 



***************** 
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***** 

*NJ * 
* Al« 



• **« 
« * 

* A2 * 

* * 
**•* 



♦ INITIALISE * 

♦ MODULF AND *. 
*SCAN MECHANISM * 

♦ * 
***************** 



NUSTAT X 

**«**A2***«****** 

♦ SCAN FOR * 

♦ RECORD I/O * 
...X* VERB AND SET *. 

• REQ CODE, OR » 

* PROGRAM END * 
***************** 



* END OF ♦ 

, .c. X» PROGRAM *. 

♦RELEASE CONTROL* 

* * 
***************** 



***** 
*NM * 
* Al* 



«****B I ********** 



***«**{»**•*«***** 



SCNOPT.SCRHOP 

*****32 ********** 
♦ SCAN FOR ♦ 

*OPTION TRIPLES * 
..X* GO TO PROPER *. . 
X *RnUT TO PROCESS* 
. * OPRND * 

. ***************** 



*****g/^****«** 

* SET « 

* SETSW TO 

* INDICATE 

* READ SET 

* * 
**«***•«*•*•*• 



.X* 



*****B5*** ******* 

* PUT ADDRESS ♦ 

* OF PNTI^ * 
OPRND IN *„ 

• 2ND SLOT ♦ 

♦ PARM LIST * 
***************** 



♦****C] ******* 



************** 



,» SELL TRIPLE *X. 

* ♦ 

***************** 



. YES 
« *• 
C* *. 



:ONTROL BLOCK * 

* * 

***************** 



♦****c •;***♦«** 

* SET * 

* SETSH TO 
K* INDICATE 

* LOCATE 

* * 
************** 



*****n] ********** 

* PUT COUNT » 

* OPRND IN * 

, * 2N0 SLOT OF ♦X. 

* PARH LIST * 

* * 
***************** 



* IGNORE TRIPLE • 

. * SET REQUEST *X' 

* CONTROL BLOCK ** 

* * 
***************** 



INTFRM 

«****Q3 ********** 

* INTO OR ♦ 

* FROM TRIPLE * 

. ..V* SET REQUEST *, 
*• CONTROL BLOCK * 

* * 
***************** 



= * INTO A 
:X*o VARYING 
♦„ STRING 



*****n •;********** 
* SET REQUFST ♦ 
*COOE BLOCK AND * 
■X*PUT ADDR OF SDV*, 
*0F OPRND IN 2ND* 
♦SLOT PARM LIST * 
***************** 



* *«**(: ]********** 

* PUT ADDRESS * 

* OF EVENT * 

, * OPRND IN -IRD *X. 

* SLOT OF PARM * 

* LIST * 
***************** 



, ♦ EVENT TRIPLE ♦X. 

* ir 

* * 
***************** 



* KEYTO TRIPLE * 
t* SET REQUEST *. 

* CONTROL BLOCK * 

« * 

«*•«•**•********* 



KEYTO A 
VARYING 
STRING . 
*. .♦ 



***«*r I* ********* 

* PUT ADDRESS ♦ 

* OF RDV OF * 

* OPRND IN *. 

* 2N0 SLOT OF * 

* PARM LIST ♦ 
***************** 



*****f:l ********** 

* PUT ADDRESS * 

* OF SDV OF * 
, ♦ OPRND IN 

* 4TH SLOT OF 

* PARM LIST • 
***************** 



*X. 



KFYOPT 

*****P2 ********** 

* KEY OR * 
*KEYFROM TRIPLE * 

,...♦ SET REQUEST *y. 

* CONTROL BLOCK ♦" 



***************** 



.V* LOCATE TRIPLE * 
"* * 

* * 

***************** 



*****F:4********** 

* * 

* SET REQUEST * 

* CONTROL BLOCK *. 

* ACCORDINGLY * 
« * 
***************** 



«****F5********** 

* PUT ADDRESS • 

* OF SOV OF ♦ 
,X* OPRND IN *TH ♦. 

* SLOT OF PARM * 



* LIST 

**•«•****** 



*****G1 ********** 

* PUT ADDRESS * 

* OF OPRND IN ♦ 
.* 1ST SLOT OF *X. 

* PARH LIST * 

* * 
***************** 



,* FILE TRIPLE •)(. 

* * 

***************** 



*****G3******* 

* SET SETSW * 

* TO INDICATE * 

* LOCATE AND ♦ 

* SAVE PNTR ♦ 

* OPRND * 
************** 



*****(;^* ********* 

« CREATE * 

♦COMPILER LAPEL * 

,X*PUT IN ?R0 SLOT*, 

* OF PARM LI ST * 

* * 
***************** 



PUT ADDRESS 
» OF RDV OF • 
,oX* OPRND IN *. 

♦ 2N0 SLOT OF * 

* PARM LIST * 
***************** 



*****H1 ********** 

♦ PUT ADDRESS ♦ 

♦ OF REQUEST * 

* CONTROL BLOCK ♦X, 

• TN 5TH SLOT • 

* IN PARM LIST • 
***************** 



END 10 

«****H2********** D 

* • . 

* ENDIO * 
...♦ STATEMENT *t, . . 

* TRIPLE *" 


*****H3********** 

* GENERATE * 

* SELL TRIPLES * 

* FOP OPRNDS *=,«. 

* ON CHAIN * 

* * 


•****HA*** ******* 

* CANCEL * 
. . ; . X* OPTION TRIPLE *, , 
X * SCAN * 


***• 

* * 
r „X* A2 • 

♦ * 
♦♦** 


***************** 


***************** 


, ***************** 





*****J1 ********** 

* GENERATE * 

* LIBRARY ♦ 

* CALLING *. 

* SEQUENCE * 

* * 
***************** 



, X*. SETSH 



*. . * 

* 
.LOCATE 



•****K1 ********** 

* GENERATE CODE * 
*T0 ASSIGN PNTR * 
*VALUE RETURNED *. 
*IN RDV TO SAVED* 

* PNTR OPRND * 
***************** 



*****K2 ********** 
* GENERATE CODE * 
« TO INITIALIZE * 
,X*VARIABLE NAMED *. 
*BY LOCATE OPND * 

***************** 



*****K 3 ********** 

* GENERATE * 
*COMPILER LABEL • 

X* MENTIONED IN • 

* IRO SLOT OF * 

* PARM LIST * 
***************** 
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***** 

*NM * 
* Al* 



*****)^l****»»**** 

* * 

• SCAN TO * 
•X* NEXT TRIPLE •X. 

* OF INTEREST * 

♦ « 
*********m**«**** 



B2 



• *• 



E0P2 

. .♦* 
*• •* 

♦ YES 

♦ NT ♦ 

♦ Al* 
* • 



.* 

OPEN 

*• •* 
*• .* 
• YES 



*. 



. NO 
• *• 

B5 *. 



*. „ * 

♦ YFS 



♦ OP OPTIONS * 

* * 



«***02*********'*' 
BUILD UP * 
PARAMETER * 



i«*«*«****«****** 



* GENERATE CALL * 

* TO LIBRARY ♦ 

♦ MODULE ♦ 

• IHEOCLA * 

« * 



CHECK 
"ITY 
IONS 



• OF 



«**«4>D3***4«)<**<)>** 

* ByjLn UP ♦ 

♦ PARAMETER * 

• LIST FROM * 

• OPTIONS ♦ 

* * 



TO LIBRARY 

• MODULE "V 

• IHFOCLB ♦ 

« * 



.*NEXT TRIPLE*. YES 
..X*. DATAt EDIT, .*.... 
*. LIST ,* 



«l****0^***«****«r4i 



111 *«****•««******* 



STORAD X 

♦ INSERT • 

* OPTION IN * 
, ..* PARAMETFR * 

♦ LIST * 

* * 



tALIZATION * 



•*******4>**4>4i**** 



MVTRSP 

**«**r) •)********** 

* MOVE DATA * 
*SPECIFICATIONS ♦ 

* TO OUTPl/T * 

* UNCHANGED * 

* * 



GET 85 

*****e; ********** 

* generate * 

* termination * 



CALL 
LIBRA 



**«*«*«********4i* 
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♦ NT * 

♦ Al* 



NTcnoo X 

««•** A 1 ••***•*••* 

* INITIALIZE * 

* PHASE AND * 

* GET 4K AREA • 

* OF SCRATCH * 

* STORAGE * 



.* SCAN BEEN *. NO 



NT 1 700 X 

• MQVE TEXT • 
-- USE BY 



*••«*•«•••******• 



•NU • 
* Al« 



* TRIPLES OF ♦ 

* INTEREST TO • 
« THIS PHASE * 

* • 



♦ DETERMINE ♦ 
*DED OF VARIABLE* 
, X*ANO HAKE ENTRY «... 

IN DATA ♦ 

*-- II ST 



*«•• 



gOA 



*«••**• 



,* 
• •* 
• NO 



Fl •. 

.* END •. 
► OF ♦. YES 

FORMAT .*.... 

*. LIST .• 

*. •* 



•****E2 *•*••***• 

* MAKE ENTRY 
<• IN FORMAT 

♦ ITEM LIST 

• 



♦ASSOCIATE ITEMS* 

♦ IN THE • 
♦DATA AND FORMAT* 

♦ TYPE LISTS * 

♦ ♦ 



T-'pn 

*{{**r4***«**«*** 

• SET INCLUDE ♦ 

• BITS AND LIB * 
*ROUTINE REQUEST* 

• BITS • 
« * 
***************** 



•****04**^^^***** 

♦ SAVE TYPE * 

♦ CnOES OF ANY * 

♦ DATA ITEM WHICH* 

♦ MAY INVOKE * 
♦REMOTE FORMATS • 
*****•***♦•**••*• 



♦ SAVE FORMAT ♦ 

♦ ITEM LIST FOR ♦ 



Hl*L************** 



♦ NO 



.* 

I •* 

♦ NO 



*****G2*^^^*****^ 



*****G24 



IShQHSi***: 





LIBRAR 
JTrNiS M 
J NECESS 



•••••H3******«^** 

* PLACE OiCT • 

* REFS OF THESE * 
X*ENTRIES IN THE *....! 

* LIB ROUTINE * 

* TABLE • 



222 



'hart NU. Phase Nil Dverall Lcgic Diagram 



* * 

* A5 * 



•i|iili**Al ********** 
» INITIALIZE * 

* PHASE. ♦ 

* LOAD MODULE ♦ 

* lEHNV * 

* * 
** It ************** 



NU. Ml 

*****A<)**««****** 

* GFNERATE CODE * 

* TO SAVE LINK 
.,„■* AND 

* TRANSMISSION 

* REGISTPRS « 
«*****•«*•**•**•* 



*X, 



♦ t(l 



*«•* , 
NUl 002 X 

**tt**Bl ********** 

♦ LA • 
♦_*_»_*_*_*_*_*_* 

♦ SCAN FOR 

• TRIPLE OF • 

* INTEREST ♦ 

•*«*••********«** 



*X. 



***i|i*B2********** 

♦ GENERATE * 

* LJBRARY CALL * 
ATA 



*X, 



***************** 



*, ,* 
*• •* 

* NO 



*. ,* 
* NO 



NU0018 

***«*[)2 ********** 
* GENERATE CODE • 



.* X*OF FORMAT 



* TO LOAD AObR 
"F FORMAT LIST ». 
INTO STANDARD * 



* REGISTER 8 
***************** 



«****C 3 ********** 

* SET SCAN * 

* TRT TABLE * 
<♦ TO LOOK FOR ♦. 

* COMMA TRIPLE * 

* * 
***************** 



NU->"27 

»****g4 ********** 
♦GENERATE LABEL ♦ 
* USED IN LOAD 
, ,,.* AODRFSS 
« AT eniT 



***************** 



*****C/^********** 
'GENERATE BRANCH* 
* TO START OF * 
,» LIST OR A 'X 
« RETURN IF * 



«****0^ ********** 

* * 

* GENERATE ♦ 
,0* APPROPRIATE ♦X 

* LIBRARY CALL * 
o * 
***************** 



YES .* FORMAT' 
...... OR FORMAT 

*. LIST' , 



• *• 

Fl *. 
• * *• 

.* DATA', ♦. YES 
*EOIT» OR LIST'.*.... 



*«***|:2********** 

*f8I tfrmi . 

. X* {DATA OUTf . . 

• BRANCH ROUND * 

* FORMAT (EDITI * 
***************** 



^fNSnlJ^ 

OUT PUTT 



*****|:3********** 

* * 

* RESET COMMA * 
, X* ENTRY IN SCAN » 

* TRT TABLE * 

* * 
***************** 



***************** 



.* COMMA *. YES 
*. IN LIST OR ...... 

*. DATA .♦ 



.♦ COMMA *. YES 
*. IN EDIT .*,... 

*, LIST .* 



***«*G7 ********** 

* GENERATE * 

• LIBRARY CALL * 
<* FOR ♦. 



***************** 



***«*H2 ********** 

* GENERATE * 

* LA 1, DATUM * 



***** 

♦ OB * 

♦ Al* 



, *PRE-FORMAT *, YES 
, MARKER .*.... 

*• •* 



**«••*****•****** 



NU0P25 

♦*«**J2 ********** 
* GENERATE CODE * 
TO BRANCH. 



***************** 
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***** 

*0B * 
♦ Al* 



*****A1 ********** 

* * 

• * 
<* SCAN TEXT 

• « 

* * 
***************** 



♦X. 







• *** 


^ 




* * 


, 




* Al * 


^ 




* * 


_ 




**** 


X 






• *• 






1 *. 












END 


*, 


YES 


OF 




* 


TEXT 


* 


X 


.* 




***** 


*, .* 




*00 * 


» NO 




* Bl* 



.♦ COMPILER *. Y 
*. PSEUDO- .*. 
•.VARIABLE .* 



*****C2 ********** 



, X* 



***************** 



*****C3********** 

• PLACE * 

• PSEUDO- * 
VARIABLE * 

PARAMETERS * 

• IN STACK ♦ 
***************** 



16 .*. 

02 «. 

. • IS •• 

.* ASSIGNED * 

.X». VALUE FIXED 

*. BINARY ,* 

♦. 7 .♦ 

*. • * 

* NO 



*****E2 ********** 

* PLACE ASSIGN * 

* TO FIXED ♦ 

* BINARY IN *, 

* TEXT ♦ 

* * 
***************** 



*****[)3 ********** 

* EXAMINE ♦ 
PSV OPERAND * 

AT TOP OF *. 

* STACK ♦ 

* * 

*«•*******•****«* 



. X* 



.* FIRST 
OPERAND 
*. CTL OR 

*.TEMP c* 



FRSTOP 

*****p 3********** 
* REPLACE ♦ 



***************** 



ATP 

*****n5********** 

* REPLACE * 

* OPERAND BY * 
,,,X* WORKSPACE * 

* REF * 

* * 
***************** 



.X.. 

X ATT 

«**•*£ 4 ********** *****£ 5********** 

* CALCULATE ♦ * GENERATE * 

* HOPE VECTOR * * CODE TO * 

* OFFSET FROM *.■,...., X* SET RESULT * 

* PARA»»ETERS ♦ ♦IN DOPE * 

* * * VECTOR ♦ 
***************** ***************** 

**** ° 

* • ^ 

* Al *X.. 

* * .X e 

**** . . , 

. X 

*****f:4********** , *****rr^********** 

« REPLACE * . ♦ ♦ 

* MTF BY • . * DECREMENT * 
, .X* PSEUDO-CODE ♦ . * STACK * 

* MVC * . ♦ ♦ 

* * , * * 
***************** ***************** 



. * ADV * 

OR SPV 
FUNCTION 



AOVR 

**«**G2* ********* 

* CALCULATE * 

* DOPE VECTOR * 
...X* OFFSET FROM *. 

* PARAMETERS * 

* * 
***************** 



*«***Q3********** 

* GENERATE * 
PSEUno-CODF ♦ 

TO LOAD *. 

* REGISTER FROM * 

* DOPE VECTOR * 
***************** 



^X• 



«*** 

..X* Al * 

* * 

**** 



• *. 

HI *. 

* *. 

BUYS 


*. YES 


ST7,ST8 .♦, 

H2 *. 
.* IS *. 

.* IT A *. NO 


BY5 


.*• 
H3 *. 
.* *. 
* SCALAR *> YTS 

< 256 .*...., 
•• BYTES .♦ 
*. .♦ 
*. .♦ 
* NO 
, *«** 


*****H4 ********** 

* ALIGN * 

♦ WORKSPACE * 
:.X* TO *,,.. 

* REQUIRED * 

♦ BOUNDARY * 
«****«**«*«****•* 


*****H9* ********* 

* PLACE * 

* WORKSPACE * 
...oX* OFFSET ♦ 

* IN OFFSFT 1 * 

* SLOT * 
***************** 


BUY 
*. . * 
*. • * 
♦ NO 


* 


», ONLY TEMP.* 
♦ . , • 
*. r * 
* YES 




• 




• 




., X* Al * 

* * 




" 


X 

.♦. 

Jl ♦. 

* *, 
5FLL 

OR ?m 

BUY 
'*. .*' 


*. 
,* 

* 


BYiq X 

«****j 7 ********** 

* ALIGN * 

* WORKSPACE ♦ 

* TO *.... 

* ^t-BYTF BOUND * 

***************** 


**♦* 

«****J3********** 

* PLACE * 

* H0RKSO4CF * 

. ,.-X* OFFSET *.,,., 

* IN OFFSET 2 * 

* SLOT * 
***************** 


X 
«*«**ji, ********** 

* * 

* BUMP * 
.,X* WORKSPACE *o... 

* COUNT * 

* * 
***************** 


*****j 5 ********** 

* * 

* REMOVE ♦ 
.,.^X* STATEMENT * 

X * FROM TFXT * 

. * ♦ 

***************** 



HAS *. 

BUYS BEEN , 
, REMOVED .* 
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*on * 

* Bl* 



* GET BLOCK * 

* OF • 

* SCRATCH CORE * 

* * 



MOVTAB 

* MOVE TABLES, * 

* CONSTANTS AND * 

* ROUTINES INTO * 

* SCRATCH CORE * 

* * 
*Hi^^)k**3^*** ****** 



•♦♦♦♦Dl **♦♦♦♦*♦♦♦ 

* ♦ 

* SET UP ♦ 

* POINTER * 

* IN REGISTER ♦ 

* * 
***************** 



*****^l ********** 

* * 

* END OF * 

* PROGRAM, * 
♦RELEASE CONTROL* 

* ♦ 
***************** 
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***** 

♦ OE * 

* Al* 
* * 



*****A1 ********** 

* * 
♦LOAD MODULE OF * 
•AND INITIALIZE * 

* SCAN RDUTINE * 

* ♦ 



X 
••***B1 *«*«•*••*• 

* SCAN TEXT • 
» FOR AN • 

♦ INTERESTING • 

• TRIPLE » 

* * 



. TRIPLE 
*, .* 

• NO 



♦OBTAIN OPERAND 
♦DESCRtPTNS FROM* 
, X* TMPC TRIPLES. ♦. 

♦ AND CHECK FOR ♦ 

• VALIOITV * 
***************** 



ASS"32 .*. SPASS 

B3 *. *****fiit********** 

.* *. ♦ ALLOCATE OR • 

.♦ SPECIAL *, VES * BUY STORAGE * 

..X*. ASSIGNMENT .* ,.X* FOR SECONO * 

• • TRIPLE .* ♦ OPEI^ANO • 

*• ■* * * 

*, ,* ••*«•«•*•****••*• 

• NO . 

',%... °. 

X 

.♦. ASFLC^ 

C3 *. *****cit********** 

.* ARE ♦. » GENERATE CODE • 

,• OPERANDS •• VES ♦ FOR FLOATING ♦ 

*. FLOATING .*...<. X* POINT *. 

*. POINT .• * ASSIGNMtiNT ♦ 

*. ,* * « 

*, ,* *«••*•••**««*•••* 

♦ NO 



03 « 
.* ARE 

•• OPERANDS 
. POINTERS " 
•• OFFSET 
*• •• 

*• •* 
• NO 



ARE 
OPERANDS 
, AREAS 



• *• 

F3 *. 
.* ARE *. 
.* OPERANDS *. VES 
FIXED .♦-... 
♦. BINARY 



ASPOr- 

*•••* 04 •**•****** 

• GENERATE CODE * 

* FOR POINTER/ * 
,..X* OFFSET ♦. 

♦ ASSIGNMENT * 



***************** 



ASARf 

» GENERATE • 

•LIBRARY CALLING* 

...X* SrOUESCE FOR *. 

«AftF« ASSIGNMFNT* 

* * 



*, 



a* 



.* 



*. DECIMAL .* 
«, .* 

*. •* 



ASFBrr 

*****f!l,*****»**** 

* GENERATE CODE * 

• FOR FIXED ♦ 

• ..X* BINARY *. 

» ASSIGNMENT * 



***************** 



ASFO;- 

*****Q^********** 

* GENERATE CODE • 

♦ FOR FIXED ♦ 
,,.X* OFCIMAL *. 

• ASSIGNMENT * 



.* STRINGS 

». OF NlWfRiC 

•. FIELftS 



*••**••*•***•**•* 



ASTR; '■ 

*****Hi,********** 

* GENERATE CODE * 

* FOR STrFnG or * 
,..X* NUMERIC FIELD *. 

* ASSIGFMCNT * 

* • 



.* BUY, 

• SEtL, «. YES • 

ALLOCATE, .* X* 

*. FREE .* • 



LIBRARY 
SEQUENCE 



.* ARE 
, OPERANDS 
*. LABELS 



««**•**••*••••*«« 



* GENERATE CODE ♦ 
K* FOR LABEL *. 

* ASSIGNMFNT * 

* • 



ASOROP 

*****i^********** 

* OROP SYMBOLIC ♦ 

* REGISTFR * 
i.-X* USED IN ♦ 

* TMPD TRIPIF<; * 



***************** 



* Sn MARK PHASE 
*QJ, AND RELEASE* 

* CONTROL * 

* « 



***************** 



• HI « 
» * 

*••* 



***** 
*0G * 
* A2* 
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***** 

*nG * 

• A2* 



FMTf.ni 

*****C !********«« 
* PREPARE Tn * 
EXAMINE * 



**iii*******« ****** 



TSCEP!! 

**«**E1 ********** 

* TERMINATE * 

* PHASE, DELETE • 
♦IM-LINE PHASES *X. 

* IF NECESSARY * 

* • 
***************** 



* GET NEXT * 
K* TRIPLE AND ♦ 

* EXAMINE * 

* ♦ 
***************** 



***************** 



TSCSNO 

*****B 3 ********** 

* UPDATE MAXIMUM * 

* STORAGE » 
.... X*REOUIREMENT IF * 

* NECESSARY * 

* * 
***************** 



**♦* 

* * 
. „X* A2 * 

* * 
«*** 



.•r-iiKnfl? »« 

YES .*LIST PRIMED*. NO 

>...*. OR NOT .*... 

*. PRIMED .♦ 



****D2********* 

* * 
*CnMPILER ERROR * 

* * 
*************** 



NO 

.*o 

E2 *. 

► » 

E0P2 



.*. TSCPRC 

D3 *. *****r)iv********** 

,* PROC ♦. » PRESERVE * 

.* OR BEGIN *. YES ♦ WORKSPACE * 

♦ .PRIMED OR NOT.* o.X*COUNTS FOR LAST* 

*. PRIMED .* * BLOCK PREPARE * 

* FOR NEW BLOCK * 



• .♦ 

♦ NO 



***************** 



***** 
♦OM ♦ 
* Bl* 



F3 



.♦. 



*, 



*, 



.* *, **** 

.♦ IS P/C ♦. YES ♦ * 
EXHAUSTED ......X* A2 * 

*. ,* * * 

*. ,* ***« 
*. .♦ 
♦ NO 



* PUT GENERATED ♦ 

* CODE INTO * 

* OUTPUT BLOCK * 

* * 
***************** 



*****G2*}******** 



***************** 



**«**G'5 •****♦♦*** 



♦ G5 *. ...X + 



***************** 



***************** 



lEMOH 

*****H4 ****•*♦*** 

* EXAMINE ♦ 

* OPERANDS OF ♦ 

, c.X^ CONVERT AND *. 

* CHECK IF THF * 
♦CONV IS IN-LINE^ 
***************** 



lEMOI 

*****j4 ********** 
**♦♦ ♦ GENERATE ♦ 

► * * IN-LINE CODE ♦ 

* G5 *X.~..* FOR THIS ♦X. 



»♦** 



* CONVERSION 

* * 
***************** 



> .♦ 

*, .* 
* YES 



YES .•tONVERSION**. 
• ...♦. DONE BY 01 . 



*****K5**** ****** 

* OUTPUT * 

* MODIFIED * 
♦CONVERT AND SET*. 

* TO CALL OM OR * 

* OP * 
***************** 
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Cftart OM. Phase OM Overall Logic Diagram 






•«***81**«*««**** 



sJS8'fi« 



*•*•••*••*••*•*•• 



VERT HACftJ*** 
> ••* 



CNVCOE 
BRANCH 
CONTAIN 



cz********** 
•50E • 

ON • 



«**«*•**«*•••«•*« 



HO 



,• 



•a 



*, 



...*. .END OF TEXT .*X. 
■ •* 

*• •* 

*• •* 
• VES 

\ 

•OP • 

vr 



••*««02********** 



•••«**«**«4i***4i** 



•**«i)iE2******4'*** 



••**«•**•«*•«••*« 



«***«F2 •*•«•«•*«• 



««««•**«««**•«*•* 



«****G2********'** 



•**•**•**•««*•««• 



•«***H2 ********** 



*ti**«*««*****4i*«* 



««**«J2 **•*«•«•*« 



• •*««***4i*****4i** 



•«***K2********** 



***************** 
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'hart OP. Phase CP Overall Lcgic Diagrair 



***** 

♦OP * 
« C2* 



*****C 2 ********** 



***************** 



,* *a 




.» CONVFRT 


*. YES 


*. MACRO 




*• • 


•* ••••••• 


*• •* 




*• > * 




* NO 




**** . 




* * , 




* E2 *.X. 




• * .X..„. 




**** X 




• *• 




E2 «. 




.* *• 




NO .* END 


♦. I 


..*. OF TEXT 


«* • 



***«*0 3 ********** 
* BRANCH ON ♦ 

*:TRAS??fR*'»|?TOR:- 

« * 

***************** 



*****r^*****«**** 

* BNTOBT « 

*-*-*-*-*-«-«-*-• 
, X* BINARY • 

* TO BIT * 

* * 
***************** 



*-*-*- *-*-*-*-*-* 



***************** 



*-*-*-*-*-*-*-*-• 



***************** 



***** 

♦OS * 

♦ AZ* 

* * 
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chart OS. Phase OS Overall Lcgic Diagram 



•OS 
♦ AZ 



♦ • 

• A4 ♦ 

* * 



* GET SCRATCH ♦ 

* STORAGE TEXT * 

* BLOCK, • 

* SET SCAN - • 

* * 



LDCOMP X 

* GET FIRST • 

* CONSTANT IN • 

* UPDATE Scan ♦ 

* BY 1 ♦ 



****«C 1*«******** 

• convrt ♦ 

* into location *x. 

: mi I 



SCAN« .*. 

.•ITATIC**. 



YES .* Initial *. 

•...*. CONSTANT .* 
*.AND SCAN .* 



*• • 4 .* 
*. .* 
« NO 



♦ CONVRT * 

♦ INTO TEXT 

♦ BLOCK • 

♦ SFE C3 • 



*X. 



SCANl ... 

• •TARGET *, 
YES .*DOUBL| MORO«. 

....*. alTgnId .< 

*.ANO SCAN .* 



3LSC 

* * 

* SCAN POOL * 

* FOR SIMILAR * 

* ENTRY ♦ 

* * 



Fl 






*, 

* 




YES 


* 


* 
*, 


* 


END OF *. 


.* 
«, .* 

* YES 






. .* 
*< •* 

* NO 


X 
***** 
*PA ♦ 
*^B3* 








***** 





* GET NFXT ♦ 

* CONSTANT IN ♦ 

* CHAIN * 

* * 
•**•***••******** 



**** 

* * 

* J3 * 

* * 
**•* 



CHAR TO 

?CH 
ION 

***************** 



*•«*(; 3********* 

* * 

* CONVRT • 

* * 
*************** 



♦ CHAR STRING * 

• TO CHAR *X 

* CONVERSION * 

* * 
***************** 

'. ***• 
. * * 

..X* J3 * 

* * 

**** 



NO .* TARGET *. 
I..*. PICTURED .♦ 

*. »* 



, * 



Oil 



*. 



'm' 



*, 



.« *. «*** 

► SOURCE ». YES * * 

STRING .*....X* K« * 



.* TARGET *. 
.X*. BIT STRING .* 
*• .* 



* CHAR TO * 

* BIT STRING *. 

* CONVERSION • 

* * 

***************** 



.*TARGET *. 
. * UNALTGNEO *. NO 
. AND SCAN .*.... 
*. -^ •• 



,* 
i * 
YES 



•****G2********** 

• CONVRT * 
*-*-*-*-*-*-*-*-* 

* INTO TEXT • 

♦ BLOCK • 

• SEE C3 * 
***************** 



.*. 


.*. 


ARARO 


F3 *. 


Fi, *. 


*****r5* ********* 


• * *. 


.* ♦. 
.♦CONVERSinN *. YFS 
..X*., NEEDED .*...> 


* * 


.* SOURCE *. YES 

. IN INTERNAL •• 

*. FORM .* 


* ARITH TO ♦ 




*• .* 


* CONVERSION * 


*. .* 


*i I * 


* * 


*. •* 


*, ,* 


***************** 


» NO 


* nn 
**** 






. * * 

..X* J^ * 

* * 






•**• 




.*. 


• •c 


ARBTD 


G3 *. 


G4 *. 


***«*G>;********** 




.* *. 


* * 


:• l^mi *>:!!... 


.♦ TARGFT •„ NO 


* ARITH TO * 


,.X*. CHARACTER .*.,.. 


-..X* BIT STRING * 


•• .* 


*. STRING .♦ 


♦ CONVERSION * 


*, ,* 


*« • * 


* ♦ 



***************** 



*****H2********** 
« INSERT ENTRY * 

* INTO DICTION- * 

* ARY CONSTANT * 

* POOL FROM * 

* TEXT BLOCK • 
***************** 



*t***H3********** 

* * 

* CHAR STRING • 

* TO ARITH * 

* CONVERSION ♦ 

* * 
***************** 

**** 

* • 

* J3 *.X 

* « 
**** 



* ARITH TO * 

* CHAR * 

* CONVERSION » 

* * 
***************** 



****j;********* 

* RETURN « 

» * 

•*•*****••***•* 



* CHAR TO * 

* ARITH • 

• CONVFRSnN ♦ 

• • 
**«*«****««*****• 





. ». - 


ARARD 




K* *. 


•****K5********** 


**** 


o * *,. 


* * 


« • 


-* SQURCF *. NO 


* ARITHMETIC ♦ 


* K« *.. 


..X*. CHARACTER .*.... 


...«X* TO ARTTH * 


* * 


*c STRING ,* 


* CONVERSION * 


*«*« 


•c • * 


* * 




*, » ♦ 


**•*««**•******** 
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•Table LA. Phase LA Pseudo-Code Scan 
J. ^. 



Statement or Operation Type 



+- 



Main Processing 
Routine 



+■ 



Subroutines Used 



SCINIT Initialization 



LA0005 



+- 



+ ■ 



UT01,UT02 



SCI Search for triple of inter- 
est 



LAOOIO 



UT01,UT03,UT0 6,UT07,UT0 8 



+- 



+ ■ 



SC2 Move current triple then 
search 



LAOOll 



UT01,UT0 3,UT06,UT07,UT08 



I- 



+- 



SC3 Delete current triple then 
search 



LA0012 



UT01,UT0 3,UT06,UT07,UT0 8 



+- 



+ ■ 



SCU Skip current triple - text 

wcinted 



LA0020 



UT0 6 



+- 



+- 



SC5 Skip current triple - text 
free 



LA0021 



UT06 



+- 



SC6 Move current triple - text 
wanted 



LA0025 



UT03,UT06 



■+- 



+- 



SC7 Move current triple - text 
free 



LA0026 



UT0 3,UT06 



■+- 



SCIO Symbolic input pointer to 
absolute 



LA0035 



UTOl 



■+■ 



sell Skip pseudo-code - text 
wanted 



LA0040 



UT0 6 



SC12 Skip pseudo-code - text 
free 



LAOOm 



UT0 6 



■+- 



+- 



MV2 Move user pseudo-code to 
contiguous OP 



LA0050 



UTOU 



■+- 



MV3 Move user pseudo-code to OP 



LA0055 



UT04 



■+ 



•+- 



MV3A Move user triples to OP 



LA0056 



UT0 3 



■ + 



■+ 



DVl G€merate dope vector for 
bcised aggregate 



LA0070 



UT0 7,UT10,UT11 
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iTable LAI. Phase LA Routine/Subroutine Directory 



j Routine/Subroutine j 



Function 



■-■I 



DVl 

MV2 

MV3 

MV3A 

SCINIT 

SCI 

SC2 

SC3 
SC4 
SC5 
SC6 
SC7 
SC8 
SC9 
SCIO 

sell 

SC12 
UTOl 
UT0 2 
UT03 
UTOU 
UT05 
UT06 
UT07 
UT0 8 
UTIO 
UTll 



Generate dope vector for based aggregate. 

Move user pseudo-code to contiguous output text. 

Move user pseudo-code to output. 

Move user triples to output. 

Initialize input and output text blocks. 

Searches for triple of interest to user as indicated by IRT table. 

Move current triple to output then search for triple of interest to 
user. 

Delete current triple then search for triple of interest to user. 

Skip over current triple and mask input WANTED. 

Skip over current triple and mark input FREE. 

Move current triple to output and mark input WANTED. 

Move current triple to output and mark input FREE. 

Move input pseudo-code to output and mark input WANTED. 

Move input pseudo-code to output and mark input FREE. 

Convert symbolic input pointer to absolute. 

Skip over input pseudo-code and mark input WANTED. 

Skip over input pseudo-code and mark input FREE. 

Get a new input text block. 

Get a new output text block. 

Move pseudo-code to output. 

Move triples to output. 

Move text to output. 

Test for end of block and chain to next block if necessary. 

Convert dictionary reference to absolute. 

Move input pseudo-code to output. 

Set adjustable oound values in a dope vector. 

Convert output text references to absolute. 
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Table LB. Phase LB Pseudo-Code Initial 



T T 

{Main Processing 
Routine 



Statement or Operation Type 



■+- 



+- 



Subroutines Used 



Scans text for PROCEDURE, BEGIN, 
and ALLOCATE triples 



SCAN 



SCINIT, SCI, SC3, SC5 (all in LA), 
SFSCAN, ENDRTN, MAIN, SCAUTO, 
AUT012 



+- 



Scans automatic chain 



SCAUTO 



MAIN 



+- 



Processes INITIAL attribute dic- 
tionary items 



MAIN 



CNSTWK, ARRENT 



+- 



Processes IDV statements 



AUT012 



ARRENT 



4- 



Processes INITIAL arrays 



ARRENT 



CNSTWK 



Table LBl. Phase LB Routine/Subroutine Directory 



P ^. 

I Routine/Subroutine | 



Function 



I- 



4- 



ARRENT (LC) 

AUT012 

CNSTWK 

ENDRTN 

MAIN 

SCAN 

SCAUTO 



SFSCAN 



Generates triples and pseudo-code for arrays declared with INITIAL. 

Processes IDV (initial dope vector) statements. 

Creates initialization triples. 

Releases phase and scratch storage. 

Processes INITIAL attribute dictionary items. 

Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. 

Scans AUTOMATIC chain. 

Scans through second file statements. 



L._ 
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Table LD. Phase LD Pseudo-Code Initial 
r 



T T" 

[Main Processing I 
I Routine | 
+ +. 



Statement or Operation Type 



I 

^ + 

I Scans the STATIC chain for any | STATIC 
I variable with the INITIAL attribute] 

L X 



Subroutines Used 



lENDRTN, ARRENT, CNSTWK, 
JLOVNAS, STKADD 
.X 



Table LDl. Phase LD Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



ARRENT 
CNSTWK 
CNVERT 

ENDRTN 
GAAl 
GAC3 
LOVNAS 

STATIC 
STRADD 
ST0006 
ST0088 
ST9999 



Processes the initial value string for arrays. 

Creates constant entries for initial values. 

Converts decimal integer constants used as replication factors to 
fixed binary. 

Releases the phase and scratch storage. 

Scans array initial value string. 

Makes slot for converted constant for arrays. 

Calculates the equivalent length in bits or bytes of a constant for 
variable or adjustable length strings. 

Scans the STATIC chain. 

Addresses elements of structures. 

Locates initial value list. 

Resets initial value entry. 

Makes slot for converted constant for scalars. 
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Table LG. Phase LG Pseudo-Code DO Expansion 

r 

Statement or Operation Type 



^ y 

Main Processing 
Routine 



+- 



+- 



Subroutines Used 



Scans text 



LG0002 



SCI (LA) 



+- 



+- 



For iterative DO triples, pushes 
down stack and examines control 
variable 



LGOOll 



PSHDWN, SC5 (LA), CVSCAN 



•f- 



Pushes down DO stack 



LG0013 



+- 



PSHDWN 
EXPEVL, POPUP 



For iterative DO' and DO' triples, 
pushes up stack and removes top 
entry 



LG0012 



For CV triples, reverts to normal 
scan 



LG0015 



EXPLVL 



•+- 



+ - 



For TO and TO' triples, examines 
argument and assigns to temporary, 
if necessary 



LG0017 



EXPEVL, TESTOP 



■ + 



For BY and BY' triples, examines 
expression and determines signs of 
constants; assigns variables to 
temporary 



LG0019 



EXPEVL, TESTOP 



4 



For WHILE and WHILE' triples, marks 
loop as iterative; generates test 
triples 



LG0021 



C0DE3 



- + 



DO EQUALS triples, assigns expres- 
sion as a temporary; generates code 
to control loop if end of specifi- 
cation 



LG0024 



C0DE2, TESTOP 



4 



4 



Sets up control variable text in DO 
stack 



CVSCAN 



CVCOPY, PSTYPO, PSTYPl 



4 



Generates loop control code 



C0DE2 



4 



CVCODE, DICENT, COMPAR, SWITCHP, 
LMV3AU, LMV3A5, PSTYPO, PSTYPl 



Tests expression result type and 
assigns to temorary if not constant 



TESTOP 



DICCHN, LMV3A5 



j Moves text from DO stack to output | CVCODE 

L X 



LiyiV3AU 
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Table LGl. Phase LG Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



■ + ■ 



C0DE2 

C0DE3 

COMPAR 

CVCODE 

CVCOPY 

CVSCAN 

DICCHN 

DICENT 

EXPEVL (LH) 

LGOOOO 

LG0002 

LGOOIO 

LGOOll 

LG0012 

LG0013 
LG0015 
LG0017 

LG0019 

LG0021 

LG0022 

LG0024 

LMV3AU 

LMV3A5 

POPUP 

PSHDWN 

PSTYPO/PSTYPl 

SWITCHP 

TESTOP 



Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable. 

For iterative DO' and DO' triples pushes up stack and removes top 
entry. 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO' triples, examines argument and assigns to temporary 
if necessary. 

For BY and BY' triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE' triples, marks loop as iterative and generates 
text triples. 

When WHILE' triple encountered, branches to generate comparison 
triples. 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo-variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to temporary if not con- 
stant. 
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Table LS. Phase LS Pseudo-Code Expression Evaluation 

r T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Scans text and branches to 
processing routines; rrarks phase LW 
and releases control to next phase 



LBO 



ARITH, FUNCT, LZZl, MOVEPC, 
SCAN (LA), STRING, SUESPT 



Calculates result type and 
generates pseudo-code for +, -, *, 
/„ prefix +, prefix -, coiripare 
operators, and ADD, MULTIPLY, and 
DIVIDE functions 
f— - 



ARITH, ARITH2 



ADDSTK, ASSIGN, CONVT, CICDES, 
EXPONT, GENRPD, GETADX, GETFR, 
GETGR, MCVEPC, RELSTK, SETCPX, 
STRING, SWOP 



+- 



Calculates result type for string 
operators 
I— -- 



STRING 



LZZl, MOVEPC, STALRG 



Inserts symbolic register in sub- 
script triple and stacks result 
1-—- 



SUBSPT 



ADDSTK, DICDES 



+- 



Inserts workspace description in 
TMPD triples after function, and 
stacks result. Stacks arguments 
for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo-variable mark- 
ers to staick 
^ +- 



FUNCT 



ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN 



Calculates results types and 
generates pseudo-code for ** opera- 
tor. Generates calling sequences 
to library subroutines for complex 
arithmetic 
|. _ +. 



EXPONT 



ADDSTK, ARITH2, CONVT, GETADX 
MOVEPC, STALRG, SWOP 



Calculates target type and 
generates assignment triple for 
conversion; sets dictionary entries 
for constants 
^ + 



CONVT 



ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 



■+- 



Interchanges operands; optionally 
loads first operand 



SWOP 



GETADX, GETFR, GETGR 



■ + 



■+- 



Obtains free floating or fixed 
arithmetic register; stores it, if 
necessary 
^ _ 



GETFR, GETGR 



GETADX, STALRG 



4 



Adds items to, and releases items 
from intermediate result stack 
j. _ 



ADDSTK, RELSTK 



None 



■ + 



Generates calling sequence for 
complex * and / operators, super- 
vises complex arithmetic 



SETCPX 



EXPONT, GETADX 



4 



4- 



Inserts TMPD triples after zero 
operands 

L_.L . 



LZZl 



RELSTK, SCAN 
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Table LSI. Phase LS Routine/Subroutine Directory 



r ' T" 

I Routine/Subroutine | 



Function 



h 



■+- 



ADDSTK (LT) 
ARITH/ARITH2 (LT) 

ASSIGN 

CONST 

CONVT 

DICDES 
E0P2 
EXPONT (LU) 

FCTDES 
FUNCT 

FXCl (LT) 
GENRPD 
GETADX (LT) 
GETFR/GETGR (LT) 

LBO 

LBE21 (LT) 

LBFLl (LT) 

LZZl 

MOVEPC 

PSI 

RELSTK (LT) 

SETCPX (LU) 

STALRG 

STRING 
SUBSPT 

SWOP 



Adds items to intermediate result stack, | 

I 
Calculate result type and generate code for +, -, +, /, prefix +, | 
prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE func- j 
tions. 



Generates an assignment triple and TIVJPD in the output text, 
Sets up dictionary entry for constant operand. 



I 

Calculates target type and generates assignment triple for conver- | 
si on. I 

I 
Constructs operand description from dictionary entry. ;| 

I 
Marks phases wanted/not wanted and releases control. | 

I 
Calculates result type and generates pseudo-code for ++ operator, | 
and generates calling sequence to Library subroutines for complex j 
arithmetic. j 

I 
Inserts workspace description in TMPC triples after function, and | 
stacks result. || 

I 
Inserts workspace description in TMPD triples after function, and j 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func-] 
tions. Adds pseudo-variable markers to stack. || 

II 
Generates fixed binary pseudo-code. || 

II 
Generates pseudo-code for packed decimal operations. jj 

II 
Sets up address of pseudo-code instruction. |j 

II 
Obtain free floating or fixed arithmetic register; store it, if I 
necessary. | 

Scans text and branches to processing routines. jl 

II 
Tests for operand conversions and constants. | 

I 
Generates floating pseudo-code. | 

I 
Inserts TMPD triples after zero operands. j 

I 
Moves pseudo-code to output text. | 

I 

Adds pseudo- variable marker to stack. |, 

I 
Releases items from intermediate result stack. | 

I 
Generates calling sequence for complex + and / operators; supervises] 
complex arithmetic. j 

I 

Generates pseudo-code to store all arithmetic registers currently in| 
use. I 

I 

Calculates result types for string operators. | 

I 

Inserts symibolic register in subscript triple and puts result in | 
stack. I 

I 
Interchanges operands and optionally loads first operand. | 
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Table LV. Phase LV Pseudo-Code String Utilities 
r 



|Main ProcessingI 
I Routine j 



Statement or Operation Type 



Subroutines Used 



Initializes module; releases con- 
trol to next module 



STRUTO 



None 



.^ 

I SCAN (LA), STRUT2 



Converts data item to string; cal- | STRUTl 
culates string length | 



■+- 



■+ 

I None 



Produces a string dope vector des- | STRUT2 
cription from a standard string | 
description j 

. X 



Table LVl. Phase LV Routine/Subroutine Directory 



J. y. 

I Routine/Subroutine | 



Function 



LSUT17 

LSUT22 

LSUT26 

LSUT27 

STUTO 

STRUTl 

STRUT2 

ZSTUTl 



ZSTUT2 



Tests whether string length is greater than 256, and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPC triples. 

Sets up assignment and TMPD triples. 

Initializes miodule; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string des- 
cription. 

Transfer vector to STRUTl. 

Transfer vector to STRUT2. 



L.. 
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Table LX. Phase LX Pseudo-Code String Handling 

r T 



Statement or Operation Type 



Main Proces 
Routine 



sing 



Subroutines Used 



Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 



BEGIN 



FUNPT, SCAN (LA), STROP, 
SUBSPT, TMPDT 



+- 



Processes TMPD triples. Arithmetic 
type TMPDs are ignored. String 
TMPDs are replaced by the top item 
from the string stack 



TMPDT 



GETMPD, MOVSEL, RELSTK, SCAN (LA) 
SETNPD 



+- 



Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions. A 
library calling sequence is gener- 
ated for the BOOL function using 
the mechanism for packed bit opera- 
tions. The result descriptions are 
added to the string stack 



FUNT 



ADDSTK, DICDES, GETADS, GETMPD , 
MOVEPC, RELSTK, SCAN (LA), SETMPD, 
STROP 



■+- 



Processes subscript tri 
Arithmetic type subscri 
ignored. A symbolic re 
workspace offset is add 
type subscript triples 
string description is a 
string stack 



pies, 
pts are 
gister or 
ed to string 
and the 
dded to the 



SUBSPT 



ADDSTK, DICDES, SEGNOR, SCAN (LA) 



-+ 



■+- 



Processes string operat 
AND, OR, NOT and compar 
string type operands, 
cases, in-line pseudo-c 
erated; otherwise calli 
to the library are gene 
results are added to th 
stack. 



ions CONCAT, 
isons with 
For simple 
ode is gen- 
ng sequences 
rated. The 
e string 



STROP 



ADDSTK, DICDES, GETADS, GETADX, 
GETiyPD, MOVEPC, MOVSEL, RELSTK, 
SCAN, STRUT (LV) , ASSIGN, GETWS4, 
GETWS8, SBGNER, SBGNR 
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•Table LXl . Phase LX Routine/Subroutine Directory 



J. . — ^. 

I Routine/Subroutine | 
^ +. 



Function 



ADDSTK 

ADSTR (LY) 

ASSIGN 

BEGIN 

DICDES 

FUNPT 

FUNT 

GETADS/GETADX 

GETMPD 

GETWS4 

GETWS8 

LB 

LIBl 

LIL2 (LY) 

LIL3 (LY) 

LIL6 (LY) 

LIL8 (LY) 

Lll 

MOVE PC 

MOVSEL 

MVC1/MVC2 (LY) 

RELSTK 

SBGNER 

SBGNOR 

SBGNR 

SETMPD 

STROP 

SUBSPT 
TMPDT 

T5 

L 



Adds strings to the intermediate string result stack. 

Constructs dope vector and string descriptions from a given descrip- 
tor which may describe either a string, or its dope vector. 

Generates an assignment triple and associated TMPDs in the output 
text. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argumient triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Allocates 4 bytes of aligned workspace. 

Allocates 8 bytes of aligned workspace. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo-code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo-code for AND/OR operation. 

Genereites pseudo-code to convert to string. 

Moves pseudo-code from Jouffer to output text. 

Moves SELL triples to output text. 

Creates MVC instructions. 

Removes strings fromi the intermediate string result stack. 

Gets next even-odd pair of symbolic registers. 

Gets next symbolic register. 

Gets next symbolic register. 

Constructs TMPD triples from, description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 
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Table MB. Phase MB Pseudo-code Pseudo-Variables 

r T 



Statement or Operation Type 



■+- 



Main Processing 
Routine 



+- 



Subroutines Used 



Scans source text 



MBOOOl 



SCI (LA) 



■+- 



PSI operator; starts new entry in 
stack for pseudo-variable 



MBOOll 



SWITCH 



■+- 



+ ■ 



PSI' operator; completes stack 
entry and generates code for data 
list items 



MB0012 



SWITCH, TARGET 



■+- 



Assign completes stack and rescans 
group of assignments, putting tar- 
get descriptions out in correct 
sequence; generates code for 
pseudo-variables in stack 



MB0013 



DRFTMP, MMV3A5, MVTMPD, OUThlPB , 
TARGET 



Multiple assign; places only target 
descriptors in stack 



MB0014 



MVTMPD 



■ + 



+■ 



Constructs pseudo-variable stack 
entry 



ME0020 



MVTMPD 



4 



Places temporary descriptor in 
output 



OUTMPD 



MMV3A5 



Gets temporary workspace for 
pseudo- variable, if necessary 



TARGET 



GETWKS 
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Table MBl. Phase MB Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



DRFTMP 
GETWKS 
MBOOOl 
MB0004 
MBOOIO 

MBOOll 
MB0012 

MB0013 

MB0014 

MB0020 

MBl 310 

MBl 3 11 

MB1316 

MB1318 

MB1320 

MMV3A5 

MVTMPD 

OUTMPD 

SWITCH 

TARGET 
L - 



Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Multi-switch for triples of interest. 

On reeiching end-of-text marker, releases remaining block, and 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo-variable. 

PSI' operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescan group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 

Constructs pseudo-variable stack entry. 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order, 

Tests for end of stack. 

Tests for pseudo-varaible TMPD, 

Generates code for pseudo-variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo-variable, if necessary. 
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Table MD. Phase MD Pseudo-Code In-Line Functions 



■T T 

I Main Processing 
I Routine 

+- 



Statement or Operation Type 
Scans text 



Subroutines Used 



j Phase Lh (SCAN) 



None 



+■ 



Builds up function stack 
Builds up argument stack 



ILFARIN 

4 

ILFCOM 



None 



None 



Moves generated code to output 
block 



LFMOVE 



MV3(LA) 



■+ 

|LF£0F2 



Generates in-line code and 
library calling sequences 



SNAKE 



Table MDl. Phase MD Routine/Subroutine Directory 



LFARIl 

LFARIN 

LFCOM 

LFDR 

LFE0F2 

LFIGN 

LFSPEC 

SNAKE 



Continues scan for in-line functions. 

Builds up function stacK. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 

Calls subroutines to generate in-line code. 

Removes triple from text if inside an in-line function. 

Branches if IGNORE triple or not an in-line function. 

Generates code for ADDR function. 



244 



•Table ME. Phase ME Pseudo-Code In-Line Functions 

r ■ T "-■ 



Statement or Operation Type 



■+- 



Main Processing 
Routine 



Subroutines Used 



Scans and moves text 



Phase LA (SCAN) 



+- 



SCI , SC2 , SC3 , SC5 , MV3 



Builds up function stack 



3FUNC 



ZDRAOF 



Constructs result TDB and branches 
to routines for INDEX, UNSPEC, 
COMPLETION, and STATUS 



SFNPM 



MS 4 , MS 5 , MSB , RTAA , RTAB , INDEX , 
ILUNSP, EVENT, ZDRAOF, STATUS 



h- 



+- 



Deletes current triple 



SIGN 



None 



Builds up argument stack 



SDCOM 



ZDRAOF 



■+- 



Inspects arguments and branches to 
appropriate subroutine 



MSB 



RTB , RTC , RTD , RTE , RTF , RTG , RTH 



•Table M£l. Phase ME Routine/Subroutine Directory 



T ■ — T" 

I Routine/Subroutine J 
^ +. 

EVENT 



Function 
Generates in-line code for COMPLETION function. 



FINISH I Passes control to the next phase. 

ILUNSP I Generates in-line code for the UNSPEC function. 

INDEX I Generates in-line code for optimizable invocations of the function 

INDEX,. 

MSB I Calls subroutines to generate in-line code. 

MSG I Resets current flag and continues scan. 

RLCTOF I Releases module and passes to next phase. 

RTAA I Generates in-line code when the result is in a register by name, and 

the second argument is constant. 

RTAB i Generates in-line code when the result is in a register by name, and 

the second argument is variable. 

RTB I Generates in-line code for the case when the first argument is an 

aligned bit string, and the second and third arguments are both 
constcint . 

RTC I Generates in-line code in the case when the first argument is a 

character or aligned bit string, the second argument is constant and 
the third variable. 

RTD I Generates in-line code when the first argument is a character or 

aligned bit string, the second is constant and the third is not 
present. 

RTE I Generates in-line code when the first argument is a packed bit 

string, and the second is constant. 

RTF I Generates in-line code when the first argument is a character 

string, and the second and third are both variable. 
J. i „ . . J 
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Table MEl. Phase ME Routine/Subroutine Directory (continued) 

Function 



T T 

I Routine/Subroutine | 



I" 



-+■ 



RTG 

RTH 

SBERR 

SBGNER 

SBGNOR 

SBGTNR 

SCAN 

SCINIT 

SDCOM 

SFNPM 

SFUNC 

SIGN 

STATUS 

STRUT 2 

SUBl 

SUB3 

SUB4 

SUB 5 
SUB6 

SUB7L 

SUB7R 

SUB9 

ZDRAOF 

ZURCOF 



Generates in-line code when the first argument is a character 
string, the second is variable, and the third is not present. 

Generates in-line code when the first argument is a bit string, and 
the second is variable. 

Error routine. 

Gets the next even register and sets the even/odd bit on. 

Gets the next odd register and sets the even/odd bit on. 

Gets the next available symbolic unassigned register. 

Scans for the next triple of interest. 

Initializes pointers and text blocks. 

Builds up argument stack. 

Generates in-line code. 

Builds up function stack. 

Deletes current triple. 

Generates code for STATUS function. 

Constructs a string dope vector. 

Generates code to place the address of the first argument plus a 
literal offset into a symbolic register. 

Generates a ST and DROP instruction, optionally followed by a MVI 
instruction. 

Constructs a dictionary entry for the constant JJ, and generates an 
MVC instruction. 

Generates two STH instructions, followed by a DROP instruction. 

Generates an RX instruction to operate on a TDE by a register, 
optionally followed by an instruction to drop any register used in 
addressing the TDB item. 

Generates SR, SLDL, OR instructions. 

Generates SR, SRDL, OR and DROP instructions. 

Calculates correct values for ILEN, lOFF and Y. 

Converts a dictionary reference to an absolute address. 

Releases scratch core. 
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Table MG. Phase MG Pseudo-Code In-Line Functions 1 
r • 



T T 

Main Processing 
Routine 



Statement or Operation Type 



•+- 



+■ 



Subroutines Used 



Scans text 



PHASE LA (SCAN) 



None 



+- 



+ ■ 



Builds up function stack 
Builds up argument stack 



LFARIN 



None 
None 
MV3 (LA) 



LFCOM 



Move generated code to output 
block. 



LFMOVE 



■ + ■ 



Generates in-line code 



LFE0F2 



ABBFLL, 

ALLCC2, 

CEILS, 

CNASTR, 

CONJGL, 

FLOORD, 

IMAGFD, 

REALFD, 

TRUNCB, 

UNSPEC, 



ABEFLS 
CEILB, 
CMPLXB, 
CNVINT 
CONJGS 
FLOORL 
IMAGL, 
REALL, 
TRUNCD 
UTTEMP 



ABSFB, 
CEILD, 
CMPLXD, 
, CCNJGE 
, ERRFUN 
, FLOORS 
IMAGS, 
REALS, 
, TRUNCL 



ABSFD, 
CEILL, 
CMPLXL, 
CON JGD , 
FLOORB, 
IMAGE, 
REALE, 
SBGTNR, 
TRUNCS, 



Table MGl. Phase MG Routine/Subroutine Directory 



r T- 

Routine/Subroutine I 



Function 



+ — „ ^ 

Generates in-line code for ABS function with long floating-point 
argument. 

Generates in-line code for ABS function with short floating-point 
argument. 

[Generates in-line code for ABS function with fixed binary argument. 

Generates in-line code for ABS function with fixed decimal argument. 

Generates in-line code for ALLOCATION function. 

Generates in-line code for the CEIL function with fixed binary argu- 
Iment,, 

Generates in-line code for the CEIL function with fixed decimal 
argument. 

Generates in-line code for CEIL function with long floating-point 
argument. 

Generates in-line code for the CEIL function with short floating- 
point argument. 

Generates in-line code for COMPLEX function with fixed binary 
argument. 

Generates in-line code for COMPLEX function with fixed decimal argu- 
Iment. 

Generates in-line code for COMPLEX function with long floating-point 
argument. 

[Constructs assignment triple and associated TMPDS. 

Converts a decimal integer constant to fixed binary. 



ABBFLL 

ABBFLS 

ABSFB 
ABSFD 
ALLOC 2 
CEILB (MH) 

CEILD (MH) 

CEILL (MH) 

CEILS (MH) 

CMPLXB 

CMPLXD 

CMPLXL 

CNASTR 
CNVINT 



L J. . J 
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Table MGl. Phase MG Routine/Subroutine Directory (cont'd) 

Function 



r T 

I Routine/Subroutine | 



I" 



CONJGB 
CONJGD 

CONJGL 

CONJGS 

ERRFUN 
FLOORB (MH) 

FLOORD (MH) 

FLOORL (MH) 

FLOORS (MH) 

IMAGE 
IMAGFD 

IMAGL 

IM/iGS 

L FAR IN 

LFARIl 

LFCOM 

LFDR 

LFE0F2 

LFE0F3 

LFIGN 
LFMOVE 
LFSPEC 
REALB 



Generates code for the CONJG function with fixed binary arguments. 

Generates in-line code for the CONJG function with fixed decimal 
arguments. 

Generates in-line code for the CONJG function with long floating- 
point arguments. 

Generates in-line code for the CONJG function with short floating- 
point arguments. 

Aborts if Phase IM discovers an error in a function. 

Generates in-line code for the FLOOR function with fixed binary 
argument. 

Generates in-line code for the FLOOR function with fixed decimal 
argument. 

Generates in-line code for the FLOOR function with long floating- 
point argument. 

Generates in-line code for the FLOOR function with short floating- 
point argument. 

Generates in-line code for IMAG function with fixed binary argument. 

Generates in-line code for IMAG function with fixed decimal 
argument. 

Generates in-line code for IMAG function with long floating-point 
argument. 

Generates in-line code for IMAG function with short floating-point 
argument. 

Builds up function stack. 

Continues scan for in-line functions. 

Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 

Calls subroutines to generate in-line code. 

Depending on start of argument list, branches to produce in-line 
code. 

Removes triple from text if inside an in-line function. 

Moves generated code to output block . 

Branches if IGNORE triple or not an in-line function. 

Generates in-line code for REAL function with fixed binary argument. 
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Table MGl,. Phase MG Routine/Subroutine Directory (cont'd) 

Function 



P ^. 

I Routine/Subroutine | 



^ 1 ^ 

REALFD I Generate in-line code for REAL function with fixed decimal argument. 

REALL I Generate in-line code for REAL function with long floating-point 

argument. 



REALS 

SBGTNR 
TRUNCB (MH) 

TRUNCD (MH) 

TRUNCL (MH) 

TRUNCS (MH) 

UNSPEC (MH) 
UTTEMP 



Generates in-line code for REAL function with short floating-point 
argument. 

Get next available symbolic register. 

Generates in-line code for the function TRUNC with fixed binary 
argument . 

Generates in-line code for the TRUNC function with fixed decimal 
argument. 

Generates in-line code for the TRUNC function with long floating- 
point arguments. 

Generates in-line code for the TRUNC function with short floating- 
point argument. 

Generates in-line code for the UNSPEC function. 

Gets a required amount of temporary work space. 



L J. J 
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Table MI. Phase MI Pseudo-Code In-Line Functions 2 



r T T- 

I |Main Processing! 
I Statement or Operation Type j Routine j 
_ 1. 



Subroutines Used 



I- 

I Scans text 

|. 

I Builds up function stack 



IPHASE LA (SCAN)|None 

4 1 

ILFARIN I None 



4- 



1- 

I Builds up argument stack 

I- 1 

I Move generated code to output block |LFMOVE 



■+- 



LFCOM 



None 



4- 



I- 



■+- 



|MV3 (LA) 

4- 



Generates in-line code 



LFE0F2 



|MAXB, MAXD, MAXL, MAXS, MINE, MIND, 
JMINL, MINS, MODE, MODD, MODL, MODS, 
JROUNDB, ROUNDD, ROUNDL, ROUNDS 



Table Mil. Phase MI Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



I- 



4- 



LFARIN 

LFCOM 

LFEOF2 

LFMOVE 

MAXB/MINB (MJ) 

MAXD/MIND (MJ) 

MAXL/MINL (MJ) 

MAXS/MINS (MJ) 

MODE (MJ) 
MODD (MJ) 

MODL (MJ) 

MODS (MJ) 

ROUNDB 
ROUNDD 

ROUNDL 

ROUNDS 



Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generate code for MAX/MIN function with fixed binary arguments. 

Generate in-line code for MAX/MIN function with fixed decimal 
arguments. 

Generate in-line code for MAX/MIN function with long floating-point 
arguments. 

Generate in-line code for MAX/MIN function with short floating-point 
arguments. 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal argu- 
ments. 

Generates in-line code for MOD function with long floating-point 
arguments. 

Generates in-line code for MOD function with short floating-point 
arguments. 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal argu- 
ment. 

Generate in-line code for ROUND function with long floating-point 
arguments. 

Generate in-line code for ROUND function with short floating-point 
arguments. 
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•Table MK. Phase MK Pseudo-Code In-Line Functions 3 



■T T 

[Main Processing I 
I Routine j 

.+ _ 1 

(PHASE LA (SCAN) I None 

4 1 

ILFARIN I None 



Statement or Operation Type 



Subroutines Used 



Scans text 

Builds up function stack 



I Bui Ids up argument stack 



■+- 



■+- 



LFCOM 



None 



4- 



■+- 



Move generated code to output block j LFMOVE 

1 

ILFE0F2 

I 

JL 



|MV3 (LA) 
■+ 



Generates in-line code 



jDIM, HBOUND, LBOUND, LENGT, SIGNFB, 
I SIGNED, SIGNL, SIGNS, FREBIP 



•Table MKl. Phase MK Routine/Subroutine Directory 



I T- 

Routine/Subroutine | 
1. 



Function 



DIM 

FREBIF 

HBOUND 

LBOUND 

LENGT 

LFARIN 

LFCOM 

LFE0F2 

LFMOVE 

SIGNFB 

SIGNFD 

SIGNL 

SIGNS 



Generates code for DIM function. 

Generates code for FREE function. 

Generates code for HBOUND function. 

Generates code for LBOUND function. 

Generates code for LENGTH function. 

Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generates code for SIGN function with fixed binary argument. 

Generates code for SIGN function with fixed decimal argument. 

Generates code for SIGN function with short floating point argument. 

Generates code for SIGN function with short floating point argument, 



I.. 
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Table ML. Phase ML Pseudo-Code Calls and Functions 
r 



.^ ^. 

[Main Processing I 
I Routine | 

■+- 



Statement or Operation Type 



Subroutines Used 



iScans text |PHASE LA (SCAN)|None 
I- + 1 

I Identifies argument of procedure | FPFNAR | None 
I invocation j j 



^ + 

I Selects generic built-in function jFPBIF 
1^ ^ 

I Selects PL/I generic entry name |FPGAR 

L ± 



IFPARDI 
.+ _ 

IFPARD2, FPARD3, GNSECO 
.± 



Table MLl. Phase ML Routine/Subroutine Directory 



r T 

I Routine/Subroutinr | 



Function 



h 



■+- 



FPAOl 
FPARDl 

FPARD2 

FPARD3 

FPBIF 
FPEPCO 
FPFNAR 
FPGAR 

I GNFM2 
GNSECO 



Scans for next argument. 

Obtains parameter descriptions relating to built-in function argu- 
ments . 

Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure. 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects FL/I generic entry name. 

Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 



•Table MM. Phase MM Pseudo-Code Calls and Functions 



•T T 

I Main Processing | 
I Routine j 
.| + 

I PHASE LA (SCAN) I None 



Statement or Operation Type 



Subroutines Used 



Scans text 



4- 



4- 



Scans list, counts arguments and jCFCALL 
identifies storage class j 
1 



ICPARID, CFFBIR, CFFDVS, CFMVTR, 
I CFMVCD 
■ + ■ 



Rescans list and generates calling |CFCFSS 
sequence for library routine j 



iCFAi^HA, CFCALP, CFBIFH, CFMLBR, 
j CFMVCD, CFNEST, UTTMPW, CFAIFI, 
I EASED 
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• Table MMl . Phase -Miyi Routine/Subroutine Directory 



r — T- 

I Routine/Subroutine | 



Function 



h 



■+- 



BASED (MO) 
BEGIN 

CFALFl (MO) 
CFARHA 
CFARID (MO) 
CFBIFH 

CFB04 
CFB0 21 
CFB036 
CFCALL 
CFCALP 

CFC0 3C 
CFCFSS 
CFEXIT 

CFFBIR 

CFFDVS (MN) 

CFL06 
CFL04 3 
CFMLBR (MN) 

CFMVCD 
CFMVTR 
CFNEST 
CFY007 
UTTMPW (MN) 



Generates relocation code for based variables. 

Initializes phase. 

Places address of invoked routine at the head of its argument list. 

Generates calling sequence. 

Counts arguments and sers STATIC/AUTO flag. 

Further built-in function identification with relevant parameter 
setting . 

Restores previous environment. 

Tests nature of function found. 

Restores pointer to start of invocation. 

Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and, if necessary, generates code to 
initialize dope vector. 

Tests for nested function. 

Rescans list and geneiiates calling sequence for Library routine. 

Transfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation. 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector. 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation. 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace. 
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•Table MP. Phase MP Pseudo-Code BUY Reorder 



■T T" 

I Main Processing I 
Routine I 



Statement or Operation Type 



Subroutines Used 



I Main scan routine for phase 



IMPI 



I SCAN, ZDRFAB, ZTXTRF, ZUERR 
-JL 



'Table MPl. Phase MP Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



1-- 



■+- 



UT0 5 

MPl 

MP 3 
MP 4 
MPUA 
MPS 

MP2 3 

MP26 

MP27 

MP28 

MP29 

MP30 

MP31 

MP86 

MP87 

MPS 

SCAN 

ZDRFAB 

ZTXTRF 

ZUERR 



Adds SELL dictionary reference to SELL list if not already there. 

Main controlling routine for rearranging BUY and SELL statements 
involved in obtaining VDAs for adjustable length string temporaries. 

Processes EOP triple. Releases control of phase. 

Processes BUYS triple. 

Processes BUYX triple. 

Continues text scan if not string or arithmetic data, or not struc- 
ture. 

Continues scan of text. 

Processes BUYS triple. 

Processes BUY ASSIGN triple. 

Processes BUY triple. 

Processes SUBSCRIPT triple. 

Processes ASSIGN triple. 

Accesses top stack entry. 

Tests triple for BUYX, and processes. 

Scans for BUYS, BUY, and SELL triples. 

Processes SELL triple. 

General scan routine. 

Converts dictionary reference to absolute address. 

Changes absolute address to a text reference. 

Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 



T T" 

I Main Processing] 
Routine 



Statement or Operation Type 
Scans text 
Calculates element offset 



Subroutines Used 



•+- 



■+- 



SBSCAN 



None 



■+- 



■ + - 



SBSTIH 



jSBASS, SBCOBI, SBGNOR, SBMVCD, 
ISENEST, SBSUBP, SBSUDV, SBXOP, 
I UTTEMP 

4- 



checks subscript range 



SBSERN 



None 



Table MSI. Phase MS Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



-+- 



SBASS 

SBCOBI (MT) 
SBERR (MT) 
SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBSERN (MT) 
SBSCAN 
SBSTIH 
SBSUBI 
SBSUBP (MT) 
SBSUDV 

SBS05 
SBS06 
SBS002 
SBS029 
SBTRID 
SBXOP (MT) 
SCAN 
UTTEMP (MT) 



Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Puts error message into dictionary. 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation. 

Checks subscript range. 

Branches to LA for scan. 

Calculates element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Scans for comma, subscript prime, or subscript triple. 

Handles special index feature. 

Controlling scan of text. 

Allocates workspace. 
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Table NA, Phase NA Pseudo-Code Branches, ON, Returns 



T T 

Main Processing 
Routine 



Statement or Operation Type 
Initializes text block 



+- 



Subroutines Used 
SCINIT (LA) 
SCI, SC2, SC3 (all in LA) 



NAINIT 



Scans text for next triple of 
interest to user 



NASCl, NASC2, 
NASC3 



+ - 



Processes STOP statements 
Processes EXIT statements 



STOP 



NAUTl 
NAUTl 



EXIT 



+ - 



Processes IF statements 
Processes ON statements 



IF 



NAUTD, NAUT16, NAUT21, ZSTUTl 
NAUID, NAU16, NAUT16, SC5 (LA) 
NAUTl 



ON 



■+- 



Produces Library call at end of 
each PROCEDURE or BEGIN block in 
source text 



PROCP, BEGINP 



+- 



+ - 



Processes RETURN statements 



RETURN 



NAUTl 



+ ■ 



Processes function RETURN state- 
ments for one data type 



NA3002 



NAUTB, NAUTCA, NAUTl, NAUTl 2 



■+- 



+ ■ 



Processes function RETURN state- 
ments for more than one data type 



NA3013 



NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF, 
NAUTl, NAUT7, NAUT8 , NAUT9, NAUTll, 
NAUTl 2 



■ + 



• + ■ 



Processes GO TO statements 
Processes GOLN triples 



GOTO 



NAUTD 



-+ 



GOLN 



NAUTD 



Processes GOOB statements 
Processes SIGNAL statements 



GOOB 



NAUT5, NAUTD, NAUTl 6, SC5 (LA) 



SIGNAL 



NAUTD, NAUT6, NAUTl 6, NAUT8, 
NAUTIO, NAUT21 



4- 

I NAUTD, SC5 (LA) 



I Processes REVERT statements 

L 



REVERT 
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Table NAl . Phase NA Routine/Subroutine Directory 



^ ^. 

I Routine/Subroutine | 



Function 



F- 



■+- 



EXIT 

GOOB 

GOTO 

GOLN 

IF 

NAINIT 

NASC1/NASC2/NASC3 

NAUTA 

NAUTB 
NAUTCA 
NAUTD 
NAUTF 



Processes EXIT statements. 

Processes GOOB staterrients . 

Processes GO TO statements. 

Processes GO TO label number (GOLN) triples. 

Processes IF Statements. 

Initializes text blocks. 

Scan text f\or next triple of interest to user. 

Generates pseudo-code to test switch value at RETURN (function 
value) statement for more than one data type. 

Generates assignment triple to RETURN function result. 

Generates assignment triple set up by NAUTB. 

Generates indicated pseudo-code. 

Generates pseudo-code to branch to EQU value. 
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Table NAl. Phase NA Routine/Subroutine Directory (cont'd) 

Function 



r T" 

1 Routine/Subroutine | 



f- 



NAUTl 
NAUT2 

NAUT5 
NAUT6 
NAUT7 

NAUT3 
NAUT9 
NAUTll 
NAUTl 2 
NAUTl 6 

NAUT17 
NAUTl 8 
NAUT21 

NAllOO 

NA1140 

NA3002 

NA3005 

NA3013 

NA8003 

NA8 010 

NA8012 

ON 

PROCP/BEGINP 

RETURN 

REVERT 

SIGNAL 

STOP 

ZSTUTl 



Generates call to indicated library routine. 

Moves indicated pseudo-code, deletes current triple, continues text 
scan. 

Makes dictionary entry tor indicated library routine. 

Updates current symbolic register value. 

On entry, register BR points at an entry label dictionary entry. On 
normal exit from the routine, register BR points at the next label 
dictionary entry. Abnormal exit indicates that there are no further 
labels on the current PROCEDURE or ENTRY statement. 

Bump ECU* value for branch pseudo-code item. 

Bump return switch value to be used for current entry label. 

For current entry label, generate appropriate EQU* pseudo-code item. 

Converts current label dictionary reference to an absolute address. 

Converts dictionary reference of triple second operand to absolute 
address, loads address into register BR. 

Makes dictionary entry for maximum negative number. 

Makes indicated dictionary entry. 

Generates pseudo-code to compare source bit string, making library 
comparison routine dictionary entry, if necessary. 

Tests for SNAP. 

Using NAUTD, generates code for CN-units. 

Processes function RETURN statements for one data type. 

Outputs assignment triple. 

Processes function RETURN statements for more than one data type. 

Generates pseudo-code for branch and mask, labels. 

Converts ID to bit-string. 

Outputs pseudo-code. Compares bit-string to zero. 

Processes ON statements. 

Produce Library call at end of each procedure in source text. 

Processes RETURN statements. 

Processes REVERT statements. 

Processes SIGNAL statements. 

Processes STOP statem.ents. 

String utility in Phase LV to provide a dope vector for a specified 
string. 
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• Table NG. Phase NG Pseudo-Code Operating Systein Services 

r ' 



■T T 

|Main Processing 
I Routine 

.| ^. 



Statement or Operation Type 



Subroutines Used 



Processes ALLOCATE triples for 
based variables 



ALOCAT 



CALIB, FALUTl 



+- 



Processes DELAY triples 



DLAY 



■+ 

|DSPY 



I- 



CALIB, INTLG, SCAN (LA) 



Processes DISPLAY triples 



+- 



CALIB, CHAR, ENDLST, 
SCAN (LA) , STCRAD 



I h- 



Processes FREE triples for based j FREE 
variables | 



CALIB, FALUTl 



4 

|CAL1B,INTEG,SCAN(LA) ,OPLAST 



[Processes WAIT triples 

L 



WAIT 



'Table NGl. Phase NG Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 
^ 



Function 



CALIB 

CHAR (NH) 

DLAY 

DSPY 

DSPY3 

DSPY4 

DSPYIO 

ENDLST 

FALUTl 

INTEG (NH) 
NGO 

OPLAST 
S TOR AD 



Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Processes DELAY triples. 

Processes DISPLAY triples. 

Tests that operand is character variable. 

Makes dictionary entry for parameter list. 

Scans for REPLY option. 

Completes parameter list and makes dictionary entry for it. 

Examines argument of ALLOCATE or FREE triples to see if variable is 
based and forms RDV in workspace to prepare for call to the library. 

Converts a given argument to an integer. 

Scans to next triple. 

Builds up parameter list in workspace. 

Stores an address in a parameter list. 
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Table NJ. 
r 



Phase NJ Pseudo-Code RECORD I/O 



Statement or Operation Type 



+■ 



Main Processing 
Routine 



Subroutines Used 



Initialize Phase NJ by calling in 
block NK and initializing SCAN 
utility 



STRTNJ 



ZLOADW (AA) , SCINIT (LA), SCI (LA) 



+ - 



Initializes switches and flags to 
indicate start of new statement. 
Determines RECORD-oriented I/O verb 
and goes to appropriate routine 



NUSTAT 



TXTEST 



Gets next triple of interest, 
converts to internal code and sel- 
ects the appropriate routine to 
process it 



SCNOPT 



SC3 (LA), TXTEST, SCANOl, CMPERR 
TXTERR, Z ABORT (AA) 



-I" 



Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the param- 
eter list. The parameter list is 
in STATIC if file constant, WORK- 
SPACE if file parameter 



FILOPT 



TXT ARC, DYNMPL, LAONLY, STDROP, 
CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXTRF (LA), SYMREG, 1^V3 (LA) 



■ + ■ 



Establishes the record dope vector 
(RDV) for the triple operand and 
places the address in the second 
slot of the parameter list unless 
the operand of the INTO triple is 
A varying string, in which case it 
places the address of the string 
dope vector of the operand in the 
second slot in the parameter list. 



INTFRM 



TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LA0SM2, CRDV, TXTERR, 
ZABORT (AA), WRKSPC, MVPSCD, TXTRF, 
SYMKEG, ZDRFAE (AA), CALLIB, 
ZDICRF (AA), REFRDV, SCALAR, 
PNTRDR, BSDRDV 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (conf 
r T 



d) 



Statement or Operation Type 



Mam Process 
Routine 



mg 



Subroutines Used 



Processes the operand of the 
LOCATE triple by establishing the 
RDV for the triple operand and 
placing rhis address in the second 
slot of the parameter list. It 
establishes the pointer qualifier 
of the based variable and saves 
this, either to be used, or tc be 
overwritten by the operand of a SET 
triple. It establishes a compiler 
label and puts this in the third 
slot of the parameter list in Norder 
to tell the library where to 
return, so that code assigning the 
pointer value returned in the RDV 
to the saved pointer operand is 
avoided. It then initializes the 
based variables just allocated 



LOCOPT 



TXT ARC, ZDiCRF, PNTRDR, SCALAR, 
LOCRDV, CMPERR 



+- 



+ - 



Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, wnich may be 
in STATIC or WORKSPACE 



KYTOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDkOP, NX'IMPD, ZSTUT2 (STRUT2 in 
LV) , LACSM2, LAOSMl, TXTERR, 
ZDi-lFAB (AA), SC5 (LA), WRKSPC, 
MVPSCD, MV3 (LA), SYMREG 



■+- 



Processes the KEY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argumient to a char- 
acter string if it is not already a 
character string and placing the 
result in the appropriate parameter 
list slot; this is either in STATIC 
or WORKSPACE 



KEYOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUTl (STRUTl in 
LV) , LAOSMl, LA0SM2, T^.PSEL, TXTERR 



■+- 



+- 



Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 
The address of the argument is 
placed in the appropriate parameter 
list slot in STATIC or WORKSPACE 



IGNOPT 



TXTARG, SCALAR, CINTEG, DYNMPL, 

LAONLY, STDROP, MVPSCD, WRKSPC, 

MVTRPL, LAOSMl, ZDRFAE (AA), 

CMPERR, TMPREF, NXTMPD, MV3A (LA), 

WRKSPC, SYMREG, MV3 (LA) 



•+- 



Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storages class of the argu- 
ment. 



EVTOPT 



TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC, 
MVPSCD, ZTXTRF (LA) , SYMREF, 
MV3 (LA) 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 
r T" 



Statement or Operation Type 



+ ■ 



Main Processing 
Routine 



Subroutines Used 



Processes the pointer operand of a 
SET triple. If part of a READ 
statement, the address of the poin- 
ter variable is placed in the sec- 
ond slot of the parameter list. If 
part of a LOCATE statement, the 
pointer operand overwrites the 
pointer taken from the based varia- 
ble in the LOCATE statement, to be 
used in the pointer assignment code 
produced by ENDIO. 



SETOPT 



TXTARG, SCALAR, NXTMPD, DYNKPL, 
TMPREF, STDROP, TXTERR 



■+- 



+ ■ 



At end of I/O statement, places 
REQUEST_CODE (i.e. lODEF) in sta- 
tic constant chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows: 

EPRM 

LA 1, PARM.LIST 

L 15, RECORD. 10. LIBRARY. ROUT 

BALR 14,15 

EPRM 

If there is a WORKSPACE parameter 
list, it updates the MVC or param- 
eter list from STATIC to V^ORKSPACE. 
It checks whether a LOCATE state- 
ment is being processed, for which 
it generates pseudo-code to assign 
the pointer value from the RDV to 
the pointer variable and to ini- 
tialize the REFER variable of a 
self-defining structure. It gener- 
ates an allocate triple to indicate 
possible initialization of TASK 
and/or EVENT variables, and a com- 
piler label triple to mark the end 
of initialization code for the 
library. It generates any SELL 
triples accumulated throughout the 
statement on SELL chain. It can- 
cels the RECORD-oriented I/O option 
triple codes from the SCAN TRT 
interest table. It gets the next 
triple of interest and goes to 
NUSTAT to process as a new state- 
ment. 



ENDIO 



ZDICRF (AA), LAONLY, LAOSMl , 
CALLIB, MVPSCD, ZTXTAE (AA) , SELL, 
SC3 (LA) SYMREG, TMPREF, 
ZDRFAB, MVTRPL, RCBCMN 
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Table NJ. Phase NJ Pseudo-Code RECORD I/C (cont'd) 



T T 

Main Processing 
Routine 

+- 



Statement or Operation Type 



+- 



Subroutines Used 



Indicates presence of NOLOCK 
option. 



NLKOPT 



None 



+- 



Delete the SELL triple encountered 
during scan of RECORD-oriented 
I/O statement but puts dictionary 
reference in the SELL chain so that 
SELL triple can be regenerated at 
end of I/O statement 



SELL routine 
at SVSELL or 
TMPSELL entry 
point 



ZDRFAE (AA), MV3A (LA) 



•+- 



At end of program, releases own 
modules and turns control over to 
next requested phase. 



PRGEND 



RLSCTL 
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Table NJl. Phase NJ Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



BSDRDV(NK) 

CALLIB 

CINTEG 
CiyiPERR 
CRDV (NK) 



DEFER 

DELETE 
DYNMPL (NK) 



ENDIO 

EVTOPT 

FILOPT 

IGNQPT 

INTFRM 

KEYOPT 

LAONLY (NK) 

LOCRDV (NK) 

KYTOPT 
LAOSMl (NK) 

LA0SM2 (NK) 

MVPSCD (NK) 

MVTRPL (NK) 
NLKOPT 



Entry point to CRDV routine which rrarks it as processing a based 
variable in an INTO or FROM option. 

Creates pseudo-code to call library routine; indicates call in dic- 
tionary if not previously noted. 

Checks whether argument is a binary fixed integer. 

Indicates compiler error and ABORT, error code in HOLD register. 

Constructs a record dope vector (RDV) entry in WORKSPACE. If the 
dope vector descriptor bit is on, then the routine generates a 
library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed fron information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

Indicates compiler error in the case of a deferred feature not 
detected by earlier phase. 

Establishes DELETE code as REQUEST_CODE. 

Establishes a parameter list in workspace if one is not already 
established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

handles operations at end of I/O statement. 

Processes EVENT option. (Not implemented in second version.) 

Processes FILE option. 

Processes IGNORE option. 

Processes INTO/FROM option. 

Processes KEY or KEYFROM option. 

Outputs pseudo-code for LA into symbolic work register of a dic- 
tionary reference without any offset niodifiers. 

Entry point to CRDV routine which marks it as processing a based 
variable of a LOCATE statement. 

Processes KEYTO option. 

Establishes pseudo-code for a LA instruction into a symbolic work 
register with the address of WORKSPACE and a literal offset which is 
pointed to the argument register. 

Generates LA pseudo-code in which both base and offset are in reg- 
isters . 

Puts pseudo-code assembled in pseudo-code area into output text 
block. 

Invokes SCAN utility to move generated triples into output text 
block. 

Indicates presence of NOLOCK option. 
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Table NJl,. Phase ■ NJ Routine/Subroutine Directory (cont'd) 

Function 



P ^. 

I Routine/Subroutine | 



h 



-+- 



NUSTAT 
NXTNiPD 

f I PNTRDR 

PRGEND 
RCBCMN 
READ 

REFRDV (NK) 

REWRIT 
SCALAR 

SCANOl 

SCNOPT 
SCRHOP 

SELL (KK) 

STDROP (NK) 

STRTNJ 
SYMREG (NK) 
TMPREF (NK) 

TMPSEL (NK) 

TXTARG 

TXT ERR 
TXTEST 

UNLOCK 

WRITE 
WRKSPC (NK) 



Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
it is a TMPD; if i^ot, it is an error. 

Establishes the seven-byte pointer information slot in a BASED vari- 
able dictionary entry. 

Releases control to next phase at end of program. 

Commons the dictionary entries of request code blocks. 

Establishes READ code as REQUEST_CODE; establishes parameter list 
size. 

Establishes the address of the RDV dictionary entry in the ARG reg- 
ister when given the data variable dictionary address in INDXl. 

Establishes REWRITE code as REQUE3T_C0DE . 

Confirms that dictionary code byte refers to scalar item; ascertains 
whether item is a constant. 

Indicates compiler error in the case of a deferred feature not 
detected during Read-In. 

Gets next triple of i'pterest, branches to appropriate routine. 

Searches options, inserts RECORD-oriented I/O option entries into 
SCAN TRT interest table. 

Generates SELL triples for all dictionary references in the SELL 
chain. 

[Outputs pseudo-code to ST contents of symibolic work register into 
parameter list slot in workspace set up by DYNKPL, and the dxop of 
the syrriaolic register. 

Initializes phase. 

Establishes symoolic work register. 

Generates the appropriate LA pseudo-code to load the address of the 
temporary described by TMPD. 

Adds temporary entry to SELL chain for generation of SELL triple 
upon comipletion. 

Processes second argument of triple. If dictionary reference, esta- 
blishes absolute address in INDXl. Returns to LR if zero, i.e., 
TEMP, LR+4 if dictionary reference. If null, indicates compiler 
error. 

Writes error message. 

Converts function code of triple interest TRT table to internal key, 
and invokes PRGEND if end of program is indicated. 

Establishes UNLOCK code as REQUEST_CODE. (Not implemented in second 
version. ) 

Establishes WRITE code as REQUEST_CODE. 

Establishes the requested workspace area, starting on fullword 
boundary . 
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Table NM. Phase NM Pseudc-Code Executable I/O 
r 



T T- 

I Main Processing I 
I Routine | 



Statement or Operation Type 



Subroutines Used 



4- 



■I- 



H 



Processes GET and PUT statements |GET 



INSERT, STORAD, INSTFL, GENPC , 
GENTR, MVTRSP, ENDLST, CALIB, 
CHAR, INTEG, UTTMPW, SRCERR, 
SCAN (LA), STRUTl (LV), STRUT2 (LV) 



-I 



Processes OPEN and CLOSE statements | OPEN 

I 
I 

I 

X 



INSERT, STORAD, INSTFL, GENPC 
1 GENTR, MVTRSP, ENDLST, CALIE, 
CHAR, INTEG, UTTMPW, SRCERR, 
SCAN (LA), STRUTl (LV) , STRUT2 (LV) 



Table NMl. Phase NM Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



CALIB (NN) 

CHAR (NN) 
ENDLST (NN) 
GENPC (NN) 
GENTR (NN) 
GET 
GET 00 
GET20 
GETS 5 

INSERT (NN) 
INSTFL (NN) 
INTEG (NN) 
MVTRSP (NN) 
NMRl 
OPEN 
OPEN 00 
SRCERR (NN) 
STORAD (NN) 
UTTMPW (NN) 



Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Completes parameter list and makes dictionary entry for it. 

Moves pseudo-code to output. 

Moves generated triples to output. 

Processes GET and PUT statements. 

Initializes switches for GET/PUT. 

PAGE option. 

Processes end of I/O statement. 

Inserts dictionary reference in paranieter list. 

Inserts file reference in parameter list. 

Converts a given argument to integer. 

Moves data and format list triples to output. 

Begins scan for triples of interest. 

Processes OPEN and CLOSE statements. 

Initializes switches for OPEN/CLOSE. 

Makes error dictionary entry. 

Generates pseudo-code to store symbolic register in parameter list. 

Obtains temporary workspace. 
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Table NT. Phase NT Pseudo-Code Data and Format 

r ■ T 



Statement or Operation Type 



+- 



Mam Processing 
Routine 



Subroutines Used 



Initializes phase, obtains scratch 
storage 



NTOOOO 



None 



+- 



Scans text 



NT0003 



NTOOll, NTOOm, NT0017, NT0021, 
NT0023, NT0024, SC2 (LA) 



+■ 



Collects remote format items and 
saves until end of block 



NTOOll 



None 



+- 



Associates remote format items with 
data list items 



NTOOm 



NTUTIO 



■+- 



Makes entries for Library routines 
required for EDIT-directed I/O and 
copies skeletons for phase NU into 
scratch storage, then releases 
phase 



NT0017 



NTUT20 



Identifies type of data list item 
and enters the type code in a list 



NT0021 



None 



1"- 



Associates format and data list 
items and marks INCLUDE matrix 



NT0023 



NTUllO 



■ + 



Identifies type of format list item 
and enters the type code in a list 



NT00 2 4 



None 



•+ 



Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 



NTUTIO 



None 



■ + 



Makes dictionary entry for Library 
Routine 

L 



NTUT20 



None 



Table NTl. Phase NT Routine/Subroutine Directory 



P ^. 

I Routine/Subroutine | 
I" 



Function 



■+- 



NTOOOO 
NTOOOl 
NT0003 
NTOOll 
NT0014 
NT0017 
NT0021 
NT0023 
NT002U 
NT1700 
NTUTIO 
NTUT20 

L 



Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 

Makes entries for Library routines for EDIT-directed I/O, 

Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in IN01.UDE matrix. 

Makes dictionary entry for Library routine 
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Table NU. Phase NU Pseudo-Code Data and Format Lists 
r 



T T 

I Main Processing 
Routine 



Statement or Operation Type 



4- 



+- 



Subroutines Used 



Generate Library calling sequences |NU0022 
for data items in DATA-directed l/oj 
statements 



INSERT, UT24,UT11,UT23 



+- 



Generate Library calling sequences |NU0023 
for data items in LIST-directed I/OJ 
statem.ents j 



INSERT , UTll , UT2 5 , UTl U , UT 2 3 , UTO 9 



■-H 



Generate code for data items in 
EDIT-directed I/O statements 



NU0024 



UT09,14 



■+■ 



-■I 



Scan text 



NU0002 



■ + - 



+ ■ 



SCI (LA) ,SC2 (LA) ,SC3 (LA) 



Generate Library calling sequences |NU0029,NU0030 
for format list items |NU0033,NU0037, 

INU0050 



UTl 5 , UTiS , ECDCNV , UTlO 



Table NUl. Phase NU Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 
|. 1. 



Function 



•-H 



1 ECDCNV 


(NV) 1 


1 INSERT 




INU0002 


(NV) 1 


INU0022 




INU0023 




INU0024 


(NV) 1 


INU0029 


(NV) 1 


INU0030 


(NV) 1 


INU0033 


(NV) 1 


INU0037 


(NV) 1 


INU0050 


(NV) 1 


|UT09 




|UT10 




|UT11 




|UT14 




|UT15 




1 1 

|UT18 (NV) 1 
1 1 


|UT2 3 


1 


|UT2 4 




|UT25 





Convert decimal constant to binary. 

Add an entry to an argument list. 

Scan text. 

Generate Library calling sequence for DATA-directed data list item. 

Generate Library calling sequence for LIST-directed data list item. 

Generate cards for EDIT-directed data list item. 

Generate Library call for A or B format item. 

Generate Library call for E or F format item. 

Generate code for R format item. 

Generate Library call for P format item. 

Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format 
item. 

Make dictionary entry for constant in EDIT or LIST list. 

Convert a constant entry to one of specified type. 

Generate Library calling sequence passing argument list. 

Generate code for intermediate result items in EDIT and LIST data 
lists. 

Make dictionary entry for FED or DED. 

Generate an assignment triple. 

Generate Library call code. 

Construct symbol table dictionary entry. 

Set bit in the INCLUDE matrix. 
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Table OB. Phase OB Pseudo-Code Compiler Functions 
r 



T T 

Main Processing 
Routine 

+- 



Statement or Operation Type 



Subroutines Used 



Scans text for BUY, BUY ASSIGN 
statements and compiler function 
and comipiler pseudo- variables (see 
Appendix D.8), and transfers to 
appropriate routine 



STl 



SCAN (LA) 



+- 



+ - 



Replaces MTF compiler functions 
(Appendix D.8) by pseudo-code move 
character instructions, adjusting 
the target field to controlled or 
temporary type 2 workspace where 
necessary 



MTFR 



EUFIZE, FR5T0F, SC3 (LA) 



+ - 



Replaces ADV compiler functions 
(Appendix D.8) by pseudo-code 
instructions to load specified 
element of a dope vector into a 
register 



ADVR 



SC3 (LA) 



Replaces SDV compiler functions 
(Appendix D.8) by instructions to 
load the maximum length from a 
string dope vector into a register 



SDVR 



SC3 (LA) 



Replaces compiler pseudo-variable 
triples and compiler assignment 
triples by pseudo-code instructions 
which store the value assigned in 
specified part of dope vector 



>T4 



EUFIZE, STACK, MV3A (LA), FRSTOP, 
DROPRG, USTACK, SC5 (LA) 



■H 



Remove BUY, BUY ASSIGN, and SELL 
statements for scalar non- 
adjustable temporary variables from 
the text, and allocate storage in 
the pseudo-code workspace for the 
temporaries 



ST8, STIO, ST7 



SC2, SC3 (both in LA) 



■+- 



Generates code to drop a symbolic 
register, or mark a literal 
register not wanted 



DROPRG 



None 



■+ 



Determines whether the target dic- 
tionary reference of MTF function, 
or ADV or SDV pseudo-variable is 
controlled or a temporary type 2. 
If it is, the dictionary reference 
is replaced by the dictionary ref- 
erence of the controlled or tem- 
porary type 2 workspace, with the 
appropriate offset, if the target 
is a structure base element 
Stack and unstack the information 
specifying the target field of 
compiler pseudo-variable assignment 



FRSTOP 



SETDVF 



STACK, USTACK 



None 



4 



Calculates the offset of the dope 
vector of a structure base element 
from the start of the structure 
dope vector 



SETDVF 



None 



Place triples from the source text 
in an internal buffer. 



EUFIZE 



SC5 (LA) 
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Table OBI. Phase OB Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



ADVR 

AT7 

ATS 

BUFIZE 

BY5 

BY19 

DROPRG 

FRSTOP 

MTFR 

SDVR 

SETDVF 

STACK/USTACK 

STl 

STU, ST6 

ST7,ST8,ST10 



[Replaces ADV compiler functions by pseudo-code instructions to load 
the specified element of a dope vector into a register. 

Generates pseudo-code. 

Replaces operand by workspace reference. 

Places triples from the source text in an internal buffer. 

Tests length of string. 

Processes string temporary (dope vector only). 

Generates code to drop a symbolic register or mark a literal reg- 
ister not wanted. 

[Replaces the target field of MTF function or compiler pseudo- 
variable by controlled workspace where necessary. 

Replaces MTF compiler functions by pseudo-code move character 
instructions. 

Replaces SDV compiler functions by pseudo-code instructions to load 
the maximum string length into an object register. 

Calculates the offset from the start of a structure dope vector to 
the dope vector of a particular base element. 

Stack and unstack information specifying target field of compiler 
pseudo-variable assignment. 

Scans text for BUY and BUY ASSIGN statements, compiler functions, 
and compiler pseudo-variables. 

Replaces compiler pseudo-variables and compiler assignment triples 
by pseudo code instructions to set the assigned expression, convert- 
ed if necessary in the specified part of a dope vector. 

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from 
the text, and allocate space for the temporary variables in the 
pseudo-code workspace. 
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• Tcible OD. Phase OD Pseudo-Code Assignment 

r T T 

I I Main Processing] 

j Statement or Operation Type j fioutine j Subroutines Used 

|. _ 1 _ 1 

I Get block of scratch core | SCRCOR | None 

^ + 1 

I I Move routines, constants and tables jMOVTAB | None 
I I to block I I 

L X J. 



I Table ODl. Phase OD Routine/Subroutine Directory 

r ■ T 

I Routine/Subroutine I Function 

^ 1 

I SCRCOR j Obtains block of scratcn core. 

I I 

jMOVTAB [Moves routines, tables and constants into scratch core. 

L .^ X -^ 
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Table OE. Phase OE Pseudo-Code Assignment 
r 



Statement or Operation Type 



T T- 

|Main Processing | 
Routine 



Subroutines Used 



1^ 1 1 

[Generates pseudo-code for assign- |ASSOO |ASCOO, ASCDOO, ASDROP 

jraent triples | j 

j. + + j 

Generates Library calling sequences | ALLOC, FREL, |CAL1B 
for ALLOCATE, FREE, BUY, and SELL |BUY, or SELL | 
triples I I 

L J. X 



Table OEl. Phase OE Routine/Subroutine Directory 



r y 

I Routine/Subroutine | 



Function 



ALLOC (OF) 

ASCOO 

ASCDOO 

ASDROP 

ASFBOO 

ASFDOO (OF) 

ASFLOO 

ASLOO 

ASPOOO 

ASAROO 

ASSOO 

ASS032 

ASTROO (OF) 

BUY (OF) 

CALIB (OF) 

ENABLE 

FREE (OF) 

GENCNV 

GENRXO 

GENSSO 

GETDES 

RMNDX 

SBGTNR 

SELL (OF) 

SPASS (OF) 



Processes ALLOCATE triples. 

Inserts target types for constants. 

Controls assignment of real and complex data. 

Drops symbolic registers. 

Generates code for fixed binary assignments. 

Generates code for fixed decimal assignments. 

Generates code for floating-point assignments. 

Generates code for label assignments. 

Generates code for pointer/of fser assignment. 

Generates library calling sequence for area assignm.ent. 

Processes assignment triples. 

Tests for special assignment triple. 

Generates code for string and numeric field assignments, 

Processes BUY triples. 

Generates Library calling sequences. 

Enables for SIZE prefix option. 

Processes FREE triples. 

Generates convert macro instruction. 

Generates RX instruction. 

Generates SS instruction. 

Obtains operand description. 

Remioves index from operand. 

Obtains next symbolic register. 

Processes SELL triples. 

Processes special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 

r T 



Statement or Operation Type 



Mam Processing 
Routine 



Subroutines Used 



Scans triples and takes action on 
their values 



TRSCAN 



+ ■ 



EOBIN , TSCSNO , TSCCLE , TSCPRC , FMTO 1 , 
TSCEOP , TSCZP2 , JSCJMP , MOVITKl , MOVOUT 



Scans pseudo-code deleting IGNORE 
items and detecting CONVERT items 



PCS CAN 



CNVFND, NuOV I TM, MOVOUT 



+- 



Examines fields of CONVERT, and 
determines whether the conversion 
is to be done in-line 



lEMOH 



M JG201 , lEMOI , CODCAL 



■+- 



+ - 



Generates Library calling sequence 



MJG201 



+- 



MJG203,MJG204,]y!JG29 8 



Generates in-line code for selected 
conversions 



lEMOI 



EITODI , FDTOFB, FIBFLT , DECFLT , PICHAR 
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Table OGl. Phase OG Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 
|. 1. 



Function 



lEOBIN 




ITSCSNO 




ITSCCLB 




ITSCPRC 




IFMTOOl 




ITSCEOP 




ITSCEP2 




1 TSC JMP 




IMOVITM 




1 MOVOUT 




1 CNVFND 




IMJG201 


(OH) 1 


1 CODCAL 


(OH) 1 


IMJG203 


(OH) 1 


IMJG204 


(OH) 1 


IMJG29 8 


(OH) 1 


1 BITODI 


(01) 1 


1 FDTOFB 


(01) 1 


IDECFLT 


(01) 1 


IFIBFLT 


(01) 1 


1 PICHAR 


(01) 1 



Entered when an end of input block marker is detected. 

Processes SN, SN2, and SL triples. 

Processes CL triples. 

Processes PROC, PROC^, BEGIN, and BEGIN^ triples, and sets up counts 
for work space requirements. 

Handles the workspace requirements for FORMAT and FORMAT LIST. 

Processes EOP triple. 

Processes E0P2 triples and terminates phase. 

When a JUMP triple is found the routine sets up a counting mechanism 
and enters PCSCAN. 

Moves from input an item which spans blocks. 

Moves an item to the output block. 

When a CONVERT is found passes control to lEMOH and outputs pseudo- 
code generated on return. 

Generates pseudo-code to call the Library conversion package. 

Given a DED generates a code byte used by the in-line conversions. 

Generates pseudo-code to point registers at data. 

Generates pseudo-code to call Library conversion module. 

Sets bits in include card matrix. 

Generates in-line code for binary to decimal conversion. 

Generates in-line code for decimal to binary conversion. 

Generates in-line code for decimal to float conversion. 

Generates in-line code for fixed binary to float conversion. 

Generates in-line code for picture to character string conversion. 
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Table OM. Phase OM In-line Data Conversions 



.^ y. 

I Main Processing! 
Routine 



Statement or Operation Type 



Subroutines Used 



4- 



I Scans text for CNVC macros 

|. 1 

[Passes control to code generation jCNVCDE 

I routines j 

L X 



•+- 



TEXTSC 



None 



■+- 



PACK , UNPACK , EDIT , EDMK 



Table OMl. Phase OM Routine/Subroutine Directory 



r • — T- 

I Routine/Subroutine | 



Function 



i. -_+ . ^ 



CNVCDE 
EDIT 

EDMK 
PACK (ON) 

PTNGEN 



Passes control to the in-line code generation routines. 

Generates conversion code^ based on the ED instruction, for FIXED 
DEC to PICTURE conversion which includes punctuation and/or zero 
suppression. 

Generates conversion code, based on the EDMK instruction, for FIXED 
I DEC to PICTURE conversion which includes a drifting sign. 

[Generates conversion code, based on the PACK instruction, for 
PICTURE to FIXED DEC conversion when the picture contains only 9's 
and Vu and has only external sign or edit characters. 

Generates the editing constant or mask used by the E:D or EDMK in- 
line instructions. 



TEXTSC I Scans text for CNVC macros. 

UNPACK (ON) I Generates conversion code, based on the UNPK instruction, for FIXED 

DEC to PICTURE containing only 9's and V, and with only external 
sign or edit characters. 

L X . : J 
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Table OP. Phase OP Further In-line Conversions 



T T- 

I Main Processing | 
Routine 



Statement or Operation Type 



Subroutines Used 



I Initialize and perforir test scan to|TEXTSC 

I search for convert macros | 

I- + 

I Examine convert macro and select |CNVCDE 
I routine to generate in-line code j 

L X 



CNVCDE 



-+- 



I ENTOBT , ETTCEN , FLTOEN 

I 

.X 



•Table OPl. Phase OP Routine/Subroutine Directory 



r T 

I I Routine/Subroutine I 

I ^ 1 _ 

I I ENTOBT I Generate in-line code for conversion from fixed binary to bit strina 

I I 

I I BTTOEN 1 Generate in-line code for conversion from bit string to fixed binary 

I I 

I I FLTOEN [Generate in-line code for conversion fromi float binary to fixed 

I I I binary 

L X . 



Function 
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Table OS, 
r 



Phase OS Constant Conversions 



^ ^ 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+■ 



Subroutines Used 



Scans constants chain for double 
word constants 



SCANl 



POOLSC, SCNOIO, STPTST 



+ - 



Scans constants chain for single 
word constants 



3CAN2 



POOLSC, SCNOIO, STPTSl 



+- 



Scans constants chain for unaligned 
constants 



SCANS 



CONVRT, lADENT, SCNOIO, STPTST 



+- 



+ ■ 



Scans through constants chain for 
all constants used to initialize 
STATIC storage 



SCAN4 



CONVRT, STPTST 



I- 



+ ■ 



Sets up parameter and branches to 
the correct conversion routine 



CONVRT 



ARARD, ARBTD, ARCHD, CHARD, ERROUT, 
lACONV, lASTRN, IriEVFA, IHEVFB, 
IHEVFC, IriEVFD, IHEVFE, IHEVKF, 
IHEVKG, IHEVPA, IHEVPB, IKEVPC, 
IHEVPD, IHEVPE, IHEVPF, IHEVPG, 
IHEVPH, UPAA, UPAB, UPBA, UPBB, 
VSAA, VSCA, VSDA, VSEA, ZEROPT 



Table OSl, Phase OS Routine/Subroutine Directory 



P . — ^ 

I Routine/Subroutine | 

1^ _-_+ 

ARARD I Handles the linking of routines required for any arithrretic to 

arithmetic conversions (corresponding Library module IHEBlViA) . 

ARBTD I As above for arithmetic to bit conversion (corresponding Library 

routines IHEDNB) . 

ARCHD lArithmetic to character (IHEDNC) . 

CHARD I Character to arithmetic (IHEDCN) . 

CONVRT I Sets up parameters and branches to correct conversion routine. 

ERROUT I Handles the output of error messages for the conversion routines. 

lACONV I Handles conversion to arithmetic type. 

lADENT I Makes dictionary entry in the constant pool, generating a new con- 

stant pool block if necessary. 

lASTRN (Handles conversion to string type. 

IHEVFA (OT) [Converts radix long floating-point binary to packed decimal inter- 
mediate. 

IHEVFB (OT) (converts long precision floating-point number to fix,ed binary. 

IHEVFC (OT) I Converts long floating-point number to floating-point variable. 

IHEVFD (OT) I Converts fixed point binary integer with scale factor to long preci- 
sion floating-point intermediate. 

IHEVFE (OT) [Converts floating-point num.ber of specified precision floating- 
point. 



Function 
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Table OSl. Phase OS Routine/Subroutine Directory (cont'd) 

Function 



r T- 

I Routine/Subroutine | 



I- 



4- 



IHEVKF (OU) 

IHEVKG (OU) 

IHEVPA (OT) 

IHEVPB (OU) 

IHEVPC (OU) 

IHEVPD (OT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 
POOLSC 

SCANl 
SCA1SI2 
SCAN3 
SCAN 4 

SCNOIO 

STPTST 

UPAA (UPAB) (OT) 

UPBA (UPBB) (OT) 

VSAA (OT) 

VSCA (OT) 

VSDA (OT) 

VSEA (OT) 

ZEROPT 



Converts packed decimal intermediate to decimal fixed or floating- 
point numeric field with specified precision. 

Converts packed decimial intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format itemi. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with 
specified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point. 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the dic- 
tionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constants chain for unaligned constants. 

Scans constants chain for constants used to initialize static stor- 
age. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and, if required, lADENT. Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEUPA) . 

Produces zero real (imaginary) part for numeric field (IHEUPB) . 

Convert from bit string to bit string (lilEVSA) . 

Convert from character string to character string (IHEVSC) . 

Convert from character string to bit string (IHEVSD). 

Convert from character string to pictured character string (IHEVSE) . 

Produces a zero real or imaginary part for a constant given in 
internal form. 
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Chart 08. Storage Allocation Logical Phase Flowchart 



♦' 8 * 
* A2* 



***««A2 ********** 
*STATIC DSA PA* 
•-•-*- •- *-*- *- *- * 

♦ OETERMINFS * 
♦ELIGIBIIITY FOR* 

* STATIC OSA'S * 



*«*«*FI2********** 
•STATIC I PO* 

*-♦-*-♦-«-♦-♦-•-♦ 

* SCANS TEXT * 

* SORTS STATIC ♦ 

* CHAIN * 



**«**C2* ********* 
•STATIC 2 PH* 
*-*-•-*-«-•-*-•-* 
♦ALLOCATES STOR-* 
*AGE FOR STATIC * 
•ARRAYS t STRUCT* 
*******•**«•**••* 



*****[)2********** 
*SYM TABLE PL* 
*-•-•-*-*-*-*-*-• 
•ALLOCATES SVM. * 
*TABLES AND OEOS* 
* FOR VARIABLES * 



****«£ 2********** 
*AUTO SORT PP* 
*-*-*-•-*-•-*-.•-* 
« SORTS * 

* AUTOMATIC * 

* VARIABLES * 



•-*-•-•-*-«-•-'*-* 

• ALLOCATES * 

• AUTOMATIC * 

• STORAGE ♦ 



•PROLOGUES QF* 

•-•-•-•-•-*-*-'•-* 

* CONSTRUCTS * 

* PROLOGUES FOR * 

* BEGIN, PROC, ON. • 

***••**•«•*•*«*•* 



*«**«H2 *•****«*** 
*OYN. STORE QJ* 
*-*-*-*-*-•-•-.*-* 

* SCANS TEXT * 

• FOR ALLOCATE C ♦ 
•BUY STATEMENTS • 
•**••*••*•*«««••• 



LIST 
AGGREGATF 
, LENGTHS ., 



* AGGREGATF * 

• LENGTH TABLE * 
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Chart PA. Phase PA Overall Logic Diagram 



♦ PA * 

♦ B3» 



* PICKUP HEAD * 
*0F ENTRY TYPE I* 

* CHAIN ♦ 

* • 



* * 

* SET OFF FLAG * 
K* IN THE * 

♦CriMMUNJCATIONS ♦ 

* REGION • 



* * 

* PICK UP ♦ 

* NEXT ENTRY •X 

* TYPE 1 ♦ 

* * 



«pn • 



.♦IS ♦. 
YES .♦IT NEITHER ♦. 



E3 



*. 



IS 
NO .♦ BLOCK 
...♦.FAR ELIG 
FOR A ST 
♦. OSA .♦ 
*. .♦ 
♦ YES 



iO ♦. 
BLE .* 
TIC^ 



*•*«« ■£♦♦♦♦♦♦♦♦♦♦ 

♦ SET ♦ 

♦ ELIGIBILITY 

♦ BIT OFF 

♦ IN ENTRY 

♦ TYPE 1 ' 
*•«**•*•*«♦♦♦*♦♦* 



♦X. 



DVSIZE X 

««***p 3 «•«*•♦*«•♦ 

♦ SCAN THE ♦ 
♦AUTOMATIC CHAINS 

♦ TO CALCULATE ♦ 
♦STORAGE REOUIRD^ 



DSASIZE X 

***«*G3 **•♦♦♦♦♦♦♦ 

♦ CALC STORAGE ♦ 

♦ FOR VARIABLES ♦ 
♦STRUCTURES AND ♦ 

♦ ARRAYS ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



•«***H3 ♦♦♦♦♦♦♦♦♦♦ 
♦ ADO ♦ 

♦STORAGE FOR STO^ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.♦ ♦. 

YES .♦ IS SIZE 
...... >512 BYTES 



♦ «*«r*K2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ CHAIN ENTRY ♦ 
,♦ FROM ENTRY *X 

♦ TYPE 1 * 

♦ ♦ 



OICENT X 

♦ MAKE STATIC ♦ 
♦OSA DICTIONARY ♦ 

....♦ ENTRY FOR ♦ 

♦ STATIC CHAIN ♦ 

♦ ♦ 
*••*««*«•••♦*•♦*♦ 



280 



Chart PD. Phase PD Overall Logic Diagram 



♦ SCAN TEXT * 

♦ AND * 

♦ REVERSF * 

♦ SECOND FILE ♦ 

♦ POINTERS * 



SCSORT 

* SCAN STATIC ♦ 

* CHAIN * 

* AND • 
« SORT ENTRIES ♦ 

* (IN PA) * 



.♦SIMPLE ♦. 
,* STATIC *. VBS 



4>*«**C24<i***«**** 

* * 

♦ ALLOCATE • 
<♦ REQUIRED ♦ 

♦ STORAGE * 

• * 



,* IS A *, VES 

, DOPE VECTOR .*.... 
♦ ..REQUIRED .• 



• **««02 «*****♦*♦* 



***«*****•«•*••«• 



X 
TVALOC .♦. 




***4i*f 3«)i****** 


El *. 


m***«e2m***-**m*** 


< * *• 


♦ ALLOCATE ♦ 


♦DETERMINE SIZE 
♦ OF CONTROL 


.* STATIC *. VES 


♦ A if-evTE ♦ 


♦ . EXTERNAL .*..... 


..K* ADDRESSING ♦.«... 


••"%* iiiinjT. 


♦.VARIABLE .♦ 


♦ SLOT ♦ 


♦• .♦ 


♦ ♦ 


♦ DICT ENTRY 



**«*«*«*4>**«***** 



«**•*«♦*****•*«*• 



CONALC 

♦SCAN CONSTANTS ♦ 

♦ CHAIN AND ♦ 

♦ RELOCATE ♦ 

♦ OFFSETS IN ♦ 
♦CONSTANTS POOL ♦ 
**♦♦•*♦*•*♦**♦♦♦* 



♦ ♦ 

♦ BUMP LOCATION ♦ 

♦ COUNTER BV ♦ 

♦ SIZE OF POOL ♦ 

♦ ♦ 
*«*«*•****♦♦♦♦♦** 



.♦ ARE ♦. 
.♦THERE MORE ♦. "ES 
, CONSTANTS .♦... 
♦. POOLS ,♦ 



♦ ♦♦♦♦ 

♦ PH ♦ 

♦ Al^ 
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Chart PH. Phase PH overall Logic Diagcann 



♦ PH ♦ 

* *1* 



• «*• 

* • 

* AZ * 

* * 

• •** 



PBSCAN X 

• PICK UP * 

* START OF * 



**•«•«**•*•*•***• 



.* END OF *, NO 
• . AUTOMATIC .*... 
*. CHAIN .* 
*• .* 



START OF * 

CONTROLLED • 

CHAIN * 

• 



(•••*A3********** 



• «•**•«*********«> 



B3 *. 

,* CAN «. 

IT HAVE *. yes 

A DOPE .*..!. 

, VECTOR .* 
*• •* 

*• •* 

♦ NO 



,* DOES ♦. 
.♦IT REQUIRE ♦. NO 
*. A HOPE .♦... 

♦. VECTOR .* 



B5 ♦. 
.♦ IS ♦. 

.♦ IT A ♦.NO 

,X*. STRUCTURE .♦... 



*1Hirti^2********** 



.* END OF 
♦. CONTROLLED 
♦. CHAIN . 



GO TO 



♦♦♦♦El ♦♦♦♦♦♦•*♦* 
CONTINUE ♦ 

SCAN OF ♦ 

STATIC * 

CHAIN ♦ 

♦ 

;•*«•••*••••••««♦ 



♦♦♦♦♦*•*«♦♦♦♦**♦♦ 



0^^^tO2****'****** 



IF NECESSARY 



STATIC CHAIN. ♦... 

♦ ALLOCATE ♦ 

♦ STORAGE ♦ 

♦♦♦♦♦♦♦♦*♦«♦♦♦♦♦♦ 



SKOVl 

♦ MAKE SKELETON ♦ 

♦ DOPE VECTOR ♦ 
♦ENTRY. INCLUOE ♦X 
♦WHOLE STRUCTURE^ 

♦ IF NECESSARY ♦ 
*••*****•♦••••*•• 



. ♦• 

C5 ♦. 

.♦ ♦. 

YES .♦ ANYTHING ♦. ^ 
......IN STRUCTURE .♦. 

♦. REQUIRF .♦ 



:: ooPF ♦ ♦♦♦♦ 

ENTRY IN^ ♦ ♦ 

~ :hAIN. ♦....X^ AZ ♦ 

JATE » • ♦ 

,._AAGE ♦ ♦♦♦♦ 

*«♦••%♦♦♦♦♦••••*• 



♦ STATIC Ct- 
AU- - 
♦ ♦♦4 



♦, 
,♦* 



, x*l XrguSent I« 

♦ . LIST .♦ 



NO .♦ ♦. YES 

•..♦. STRUCTURE ...... 

♦. •♦ 



♦♦♦♦♦F 3^^*^^^^^^i 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ALLOCATE ♦ 

♦ STORAGE. ♦ 

"♦ NUMBER OF ♦* 

♦ ELEMENTS ♦ 

«*•**♦♦•♦•♦♦***** 



«****H3^^^^ ♦♦♦♦♦♦ 

♦ ALLOCATE ♦ 

♦ STORAGE. WORK ♦ 
«♦ OUT NUMBER OF ♦. 

♦ ELEMENT IN ANY ♦ 
♦ARRAYS. UN PA)^ 
•*«♦*•♦♦♦♦♦♦♦♦♦♦♦ 



. X^ 



♦ IF VIRTUAL ♦ 
ORIGIN IS -VE ♦ 

DEsfeNERATE ♦* 
DOPE VECTOR 

■ '-■ ^♦♦♦♦« 



**•*****••♦ 



♦♦♦♦♦ 



*»***H/,**t^tHi»0^*^ 



ENERATE 
VECTOR 

4v>v 
♦♦♦♦♦i^ 



*************4i«** 



♦♦♦♦♦ 
♦ PL ♦ 
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***** 

*PL * 
* Al* 



SCAN CHAIN * 
OF STATIC *X 
VARIABLES * 

*************** 



***************** 



.* DOES * 
.* VARIABLE 
*. REQUIRE 
*. OED 



* ALLOCATE * 
,» SYMBOL TABLE * 
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« * 
***************** 



YES 

• *• 
B3 *. 
.* DOES *• **** 

.* VARIABLE *, NO * * 
..X*. REQUIRE .*....X* Al * 
*c SYMBOL .* ♦ ♦ 
♦.TABLE.* **** 



* SCAN CHAIN * 

* OF CONTROLLED * 

* VARIABLES * 

* * 
***************** 



edalII 

EDAL2 



*****C2 ********** 



***************** 



.* DOES « 
.* VARIABLE 
.X*. REQUIRE 
*. DED 



* ALLOCATE * 
. * SYMBOL TABLE * 

* FOR VARIABLE * 

* * 
***************** 



03 *. 

.* DOES < 

VARIABLE 

REQUIRE 

, SYMBOL 

*. TABLE.* 



***************** 



NO 

F2* **• 

.* DOES " 

CONSTANT 

REQUIRE 

DED 

*. ,* 



***************** 



:SCAN 

*****G1 ********** 

* SCAN CHAIN * 

* OF PROCEDURE * 

* AND BEGIN * 

* BLOCKS * 

* * 
***************** 



* SCAN CHAIN 
.X* OF AUTOMATIC 

* VARIABLES 
* 
*************** 



.* DOES * 

VARIABLE 

REQUIRE 

DED 



DEDAL 1, 
DE0AL2 X 

«**«*H3********** 



***************** 



G'> 



• *• 



*. 



. DOES 
.* VARIABLE 
.X*. REQUIRE 
*. SYMBOL 
*. TABLE.* 



*....X* H2 * 



* ALLOCATE « 
,* SYMBOL TABLE * 

* FOR VARIABLE * 

* ♦ 
*«*****«♦«******* 



***** 
*pp * 
* Al* 



* H2 * 

* * 
*«** 
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* ,A1* 
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***************** 



•• IS *. 
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***** 

• PT • 

* Al* 



*• 
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AN AUTO 
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* * 
MAKE AN 
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* • 
***************** 
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•»*♦ X 
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El *. 
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NO .* THERE A *. Y 

...*. DEPENDENT .*. 

*. CHAIN .* 

*. ,* 

*» .* 



*****f:i ********** 

* * 

* ADO TO • 

* INDEPENDENT *X 

* CHAIN • 

* * 
***************** 



,*, 
C3 *. 

«* *• 

.♦ ON- < 

►. CONDITION 

♦ , 



****«•***«***«*«• 



*, 



,* 



**«**E2 ********** 

* * 

* SCAN * 
<• DEPENDENT • 

* CHAIN ♦ 

* * 
•****•***••****** 



• *• •* 

X ». .* 

*♦*♦ * YES 

* * • 

* E2 * . 

* * • 
«*** . 

X 

• *• 

HI *. 

.* ANY *. 

.* ITEMS *. YES 

*. ADDED TO .*.... 

*. INO. CHN .* 



*****Q2********** 



,*OEPENDENT CHAIN* 



****•*•*•*••**•«• 



scRuai 

*****»2 •***«**••* 

* REMOVE * 

• INOEPEWENT * 
,..X* ITEMS FROM *. 

♦ OEPENOENCIES * 

* * 



.* NON *. YES 

*'*t°'m''\*-*"" 



<♦ ON-CHAIN *. 

* * 

* ♦ 
*•*****•*•«••**** 



* PLACE IN ♦ 
X* INDEPENDENT ♦., 

* CHAIN • 

* ' * 



.*liDJUST 
*. ITE 



SCNCHN, SRCH2 

SRCH2 

•***«F4********** 
* SET LIST OF * 
EPENOENCIFS * 



.X* 



DEP 



•*«**H3********** 

• ADO ♦ 

* INDEPENDENT * 
X* CHAIN TO *. 

• AUTO CHAIN * 

* * 
***************** 



******i***tt,****** 



*****Q^********** 



* INDEPENDENT * 

* CHAIN * 
***************** 



•*«*«H4********** 



***************** 



*****f^********** 

* * 

* ADD TO * 
<♦ OEPFNDFNT * 

* CHAIN * 

* • 
****************t 



***** J 1**** ****** 
» ERROR « 

***************** 

X 

***« 

* * 

* Al ♦ 

* * 
*•** 
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♦ PT * 



CONJi, 

♦sc 

•CHAINFdR 



*««******««***4i4i4i 



»**««B1**«******* 



****«***•*****««* 



0SA5 i 



*««*4i***«4i*4i«*«** 



,♦ ON ♦. YES 

*. 7 .* 
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*«**«E 1 **4i*«***«i 

* ALLOCATE 8 
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1> ADDRESSING 

* VECTOR 
* 



♦ALLOCATE 8-8YTE* 

* SLOT AND * 
X* COMPILE CODE * 

* TO INITIALIZE ♦ 

* * 



«*««i*F2 ********** 

* ALLOCATE * 

* 2 MOROS FOR * 
X* ADDRESSING * 

• SLOTS * 

• * 



*******«*«**«*««« 



* PARAMLIST ♦ 
<* AND 'SUV ♦ 

* WORKSPACE * 

* * 

***************** 



*, **** 

*. NO • * 

.*....X* E3 * 



.\* 
• •* 

* YES 



...•X.X.... 

X 

• *• 

B3 *. 

• * *• 

FORMAL 

PARAMETER 

**. »** 



4i*«**B4 ********** 



***************** 



*<i***C3********** 

* GET NEXT El* * 

* ENTRY IN * 
*C1RCULAR CHAIN * 

* * 

***************** 



• *• 




D3 *. 




• * *• 




NO .* IS THIS * 




* 






*. •* 




* YES 




**«* , 




* * . 




* E3 *.X. 




* * • 




**** , 




0SA25 X 




***«*E3«********* 


* 


* 


* ALLOCAT: 


* 


: '°iu,'&r 


* 
* 



***************** 



***************** 



* COMPILE CODE ♦ 
,* TO INITIALIZE * 

* DnPE VECTOR « 

* * 
***************** 



***************** 



* ALLOCATE ♦ 

* CHAR STRING * 

* STORAGE • 

* * 

***************** 



* ALLOCATE 

* BIT STRING 

* STORAGE 

« 
**************** 



♦ ALLOCATE * 

* STORAGE FOR * 

• ARRAYS ♦ 

* * 
***************** 



* ALLOCATE * 

* STORAGE FOR *■ 

* STRUCTURES * 

« • 

***************** 



***************** 



*****£;********** 

* * 

♦ GET VDA * 



***************** 



* STORE OSA ♦ 

* SIZE IN * 

* ENTRY TYPE 1 » 

* • 
***************** 



I o * 

*, ,* 
* NO 

X 

*«** 

* * 
« CI * 

* • 
**** 



♦ RELEASE * 
<* TEXT flLOCKS * 

♦ AND CONTROL * 

♦ * 
***************** 



***** 

*gF * 
* Al* 
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IN TEXT 
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TEXT 
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♦ FROH 2N0 * 



* * 

* A3 » 

* « 



QF1215 



D* 



• *• 



«, 
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X • • 
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tt^^HS********** 



••**«4lS 



TARGET ♦ 
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ENTRY PTS .* X* RETURNt AND 
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...X* SCAN TEXT 
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.* ADJUST *. N 
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*• .* 
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***************** 

* **** 
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*, 
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♦ 
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**************** 
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***************** 
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**************** 
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***♦ X 
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* FILE * 
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•Table PA. Phase PA DSAs in STATIC Storage 



T T 

I Main Processing 
Routine 



Statement or Operation Type 



■+- 



I- 



Subroutines Used 



Scans Entry Type 1 chain for blocks |PADSA 
eligible for STATIC DSAs j 



DSASIZ,BVSIZE 



+ ■ 



Makes a dictionary entry for each |DICENT 
STATIC DSA I 

■+- 



None 



+- 



Sorts STATIC chain (called from PD) | SCSORT 



None 



Scans STATIC chain for INTERNAL |ARRSCN 
arrays; calculates nuniber of ele- j 
ments for those arrays needing j 
initialization. Allocates storage j 
for arrays and, if necessary, for j 
secondary dope vectors j 
X 



None 



•Table PAl. Phase PA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



^ 1 -I 

Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
and secondary dope vectors (called from FH) . 



ARRSCN 

DICENT 
DSASIZ 
DVSIZE 

PADSA 

SCSORT 

L J. J 



[Makes a dictionary entry for each STATIC DSA. 

Calculates size of DSA excluding Register Allocator Workspace. 

Scans AUTOMATIC chain for variables requiring dope vectors, and 
calculates size of dope vectors. 

Determines eligibility of a block for a STATIC DSA. 

Sorts STATIC chain (called from PD) . 
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Table PD. Phase PD Storage Allocation Static 1 



y y 

Main Processing 
Routine 



Statement or Operation Type 



+- 



-f- 



Subroutines Used 



Reverses second file dictionary 
pointers 



PD 



NXBLCK 



+- 



Sorts STATIC chain 



SCSCRT (in PA) 



None 



4- 



+- 



Allocates storage for sin'ple, non- 
structured, non-external items 



STATIC 



SDSAl 



■+- 



Allocates dope vectors for all 
non-external items 



DVALOC 



None 



4- 



Allocates 4-byte addressing slots; 
calculates control section size for 
all external items 



TVALOC 



STRCDV 



■ + 



Allocates storage for constants. jCONALC 

X 



None 



Table PDl. Phase PD Routine/Subroutine Directory 



Routine/Subroutine j 



Function 



CONALC I Allocates storage for constants. 

DVALOC I Allocates dope vectors for all non-external items. 

NXBLCK (Obtains next text block. 

PD I Scans text file and reverses second file pointers. 

SDSAl I Allocates a 4-byte address slot for each STATIC DSA. 

SCSORT I Sorts STATIC chain. 

STATIC I Allocates storage for simple, non-structured, non-external items. 

STRCDV JAllocates relative offsets of structure member dope vectors. 

TVALOC JAllocates 4-byte addressing slots; calculates control section size 

for all external itemis. 
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Table PH. 
r 



Phase PH Storage Allocation Static 2 



T T 

Main Processing 

Routine 
+- 



Statement or Operation Type 



Subroutines Used 



Scans AUTOMATIC chain; allocates 
dope vector 



PBSCAN 



AUT04, SKDVl, SKENT3, STRSCN, 
TEMPDV 



4- 



+■ 



Scans CONTROLLED chain 



CONSCN 



+- 



AUT04, SKDVl, STRSCN 



Allocates storage for skeleton 
argument lists appearing in STATIC 
chain 



SKARGL 



None 



Scans STATIC chain for INTERNAL 
arrays; calculates number of 
elements for those arrays needing 
initializing. Allocates storage 
for arrays and, if necessary, for 
secondary dope vectors 



ARRSCN (in PA) 



None 



4 



Scans STATIC chain for INTERNAL 
structures. Calculates number of 
elements in structured arrays need- 
ing initializing. Calculates size 
of storage for all structures and 
bumps location counter. 



STRALO 



None 
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• Table PHI.. Phase PH Routine/Subroutine Directory 



r • T" 

I Routine/Subroutine | 



Function 



ARRSCN (in PA) 

AUTEND 
AUTO 4 

CONSCN 

CSCN2 

ENDS 13 

PBSCAN 

PBSl 

SKARGL 

SKARGl 
3KDV1 

SKENT3 

STRALO 

STRSCN 

TEMPDV 
L 



Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
and secondary dope vectors. 

Tests for end of AUTOMATIC chain. 

Calculates size of dope vectors for dynaitiic temporaries and CON- 
TROLLED variables. 

Scans CONTROLLED chain. 

Tests for end of STATIC chain. 

Stores STATIC location counter and releases control. 

Scans AUTOMATIC chain; allocates dope vectors. 

Gets next item in chain. 

Allocates storage for skeleton argument lists appearing in STATIC 
chain. 

Allocates storage required. 

Creates skeleton dope vector dictionary entries for non-structured 
variables in AUTOMATIC and CONTROLLED Storage. 

Constructs skeleton dppe vector dictionary entries for function 
values. 

Calculates number of elements in structure arrays to be initialized; 
calculates size of storage for all structures. 

Creates skeleton dope vector dictionary entries for structures in 
AUTOMATIC and CONTROLLED chains. 

Creates skeleton dope vector dictionary entry for temporary work- 
space. 
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Table PL. Phase PL Storage Allocation Symbol Table and DEDs 
r 



Statement or Operation Type 



^ ^ 

Main Processing 
Routine 



+■ 



Subroutines Used 



Allocates STATIC storage for all 
symbol tables and DEDS 



I EM PL 



BC3CAN, CCSCAN, CNSCAN, SCSCAN 



+- 



Scans STATIC chain for symbol and 
DED variables 



SCSCAN 



DEDALl, STRSCN, SYMTAE 



■+- 



Scans CONTROLLED chain for symbol 
and DED variables 



CCSCAN 



DEDALl, STRSCN, SYMTAE 



+ ■ 



Scans PROCEDURE block chain of 
ENTRY type 1 entries 



BCSCAN 



ACSCAN, DEDALl 



Scans AUTOMATIC chain for symbol 
and DED variables 



ACSCAN 



DEDALl, STRSCN, SYMTAE 



Scans chain of members of particu- 
lar structure for symbol and DED 
variables 



STRSCN 



DEDALl, SYMTAE 



Allocates storage for symbol tables 



SYMTAE 



DEDAL2 



Allocates storage for DEDS 



DEDAL (two 
entry points: 
DEDALl, DEDAL2) 



None 



Table PLl. Phase PL Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 

I- 



Function 



•+- 



ACSCAN 

BCSCAN 

CCSCAN 

CNSCAN 

DEDALl (PM) 

lEMPL 

SCSCAN 

STRSCN 

SYMTAB (PM) 



Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables - 

Scans constants chain for DED variables. 

Allocates storage for DEDs. 

Allocates STATIC storage for symbol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
variables. 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Cham 
J. 



Statement or Operation Type 



T T 

Main Processing 
Routine 



+- 



I- 



Subroutines Used 



Scans BEGIN-ENTRY for ENTRY type 1 
entries 
^ 

Scans AUTOMATIC chain froni each 
ENTRY type 1 entry 



RAO 



SETCH, SCRUBl, SORCH 



SETCH 



EXDT, SRCH2 



+ ■ 



Adds ON conditions to first AUTO- 
MATIC zone 



SC2U 



None 



Adds tejTiporaries (type 2) and inde- 
pendent items to first zone 
1-- 



SC31 



None 



Adds dependent items to subsequent 
zones 
^ 

Determines list of dependencies 
from INITIAL attribute 



SC4U 



None 



■+- 



+- 



SC39 



SCNCHN, SKCH2 



Determines list of dependencies 
from DEFINED attribute 



SC40 



SCNCHN, SRCH2 



^- 



+- 



Determines list of dependencies for 
array bound expressions 



SC35 



EXDT, SCNCHN 



h- 



■ + 



Determines list of dependencies for 
string length expressions 



SC50 



SCNCHN, SRCH2 



1-- 



■ + 



+ - 



Removes independent item dictionary 
references upon which items in the 
AUTOMATIC chain depend. 



SCRUBl 



None 
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Table PPl. Phase PP Routine/Subroutine Directory 



r T 

I Routine/Subroutine | 

^ 1 

EXDT I Scans dimensions tables for second file statements with adjustable 

I bounds . 

RAO I Scans EEGIN-ENTRY for entry type 1 entries. 

RAl I Tests for end of ENTRY type 1 chain. 

RAU I Creates an AUTOMATIC chain delimiter. 

RA7 JTests for end of chain. 

SCNCHN I Scans current AUTOMATIC chain; determines whether reference belongs 

I to it. 

SCRUBI I Removes independent item dictionary references from the stack of 

I dictionary references upon which itemis in the AUTOMATIC chain 
I depend. 

SC2 4 I Adds ON conditions to first automiatic zone. 

SC31 j Adds temporaries (type 2) and independent items to first zone. 

SC35 JDeterm.ines list of dependencies for array bound expressions. 

SC39 JDetermiines list of dependencies from INITIAL attribute. 

SC40 I Determines list of dependencies from DEFINED attribute. 

SC4U I Adds dependent items to subsequent zones. 

SC50 JDetermdnes list of dependencies for string length expressions. 

SETCHN I Scans AUTOMATIC chain from, each ENTRY type 1 entry. 

SORCH [Sorts chain in order of dependencies; creates zone delimiter dic- 

jtionary entries. 

SRCH2 I Scans second file statements for dictionary references of labels, 

I data items, and structures, which may belong to the current AUTOMAT- 1 
I IC chains. | 

± . J 



Function 
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Table PT. Phase PT Storaae Allocation AUTONiATIC Storage 



^ ^ 

Main Processing 
Routine 



Statement or Operation Type 



+■ 



Subroutines Used 



Scans stacked CONTROLLED chain for 
largest dope vector 



MYNAM 



DVSIZE 



+ ■ 



Initializes ENTRY type 1 chain scan 

and DSA 



DSALOC 



NjKSTAT 



Allocates slots for ON condition;; 



DSA 4 



^<:KSTAT 



+- 



+- 



Allocates storage for workspace and 
for DSA fiddressina vector 



DSAIO 



None 



+- 



Scans AUTOMATIC chain and all6cates 
storage for dope vectors 



DSA16 



COPY, DVSIZE, INITDV, MKSTAT, 
STDVIN 



+- 



+ ■ 



Allocates BUY workspace 



DSA17 



None 



+- 



+- 



Allocates storage for parameters 



DSA19 



None 



■+- 



Allocates storage for double preci- 
sion variables 



DSA25 



None 



■+- 



+- 



Allocates storage for single pred- 
ion variables 



DSA29 



None 



■+- 



+■ 



Allocates storage for character 
strings 



DSA 3 8 



None 



■+- 



Allocates storage for bit strings 



DSA46 



None 



4 



+- 



Allocates storage for arrays and 
secondary dope vectors 



DSA54 



COPY, INITDV, MKSTAT, SDVCDE 



Allocates storage for structures 



DSA6 8 



■ + 



COPY, MKSTAT 



■+- 



Gets VDA and initializes dope vec- iDSA72 
tors for adjustable regions of 
AUTOMATIC chain 
|. 1 

[Allocates storage for DEFINED items |DSA98 

L . ± 



COPY, INITDV, MKSTAT, STDVIN 



None 
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Table PTl. Phase PT Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 

1- 



Function 



CONTl 

COPY 

DSALOC 

DSA4 

DSA5 

DSAIO 

DSA16 

DSA17 

DSA19 (PU) 

DSA25 (PU) 

DSA29 (PU) 

DSA38 (PU) 

DSA46 (PU) 

DSA54 

DSA68 

DSA72 

DSA74 

DSA98 

DSA161 

DSA162 

DSA952 

DVSIZE (PU) 

INITDV 

MKSTAT 

MYNAM 

SDVCDE (PU) 

STDVIN 



Scans controlled chain for size of longest dope vector. 

Compiles code to copy skeleton dope vector into real dope vector. 

Initializes ENTRY type 1 chain scan and DSA. 

Allocates slots for ON conditions. 

Allocates standard save area and flag bytes. 

Allocates storage and workspace for DSA addressing vector. 

Scans AUTOMATIC chain and allocates dope vectors. 

Allocates BUY workspace. 

Allocates storage for parameters. 

Allocates storage for double precision variables. 

Allocates storage for single precision variables. 

Allocates storage for character strings. 

Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 

Allocates storage for structures. 

Initializes dope vectors for adjustable regions of AUTOMATIC chain, 

Stores pointer to skeleton second file statement. 

Allocates storage for DEFINED items. 

Allocates storage required for dope vectors. 

Compiles code to initialize dope vectors. 

Gets VDA for this region of AUTOMATIC chain if required. 

Determines size of dope vectors. 

Compiles code to initialize address slot in dope vector. 

Makes a second file statement. 

Scans CONTROLLED chains. 

Compiles code for secondary dope vectors. 

Initializes structure member dope vectors. 
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Table QF. Phase QF Storage Allocation Prologues 

Main Processing 
Statement or Operation Type 



Routine 



+- 



Subroutines Used 



Scans text for statement labels, 
PROCEDURE statements, BEGIN state- 
ments, BEGIN END Statements, and 
end-of-program marker 



QFOOOO 



QBEGEP, Q3PR0L, QEOP, Q^50VE, QPROL, 
QSL 



+- 



Processes statement label pseudo- 
code items 



QSL 



QMOVE 



Frees text storage at end of phase; 
releases control 



QECP 



QMOVE 



+- 



Creates stereotyped prologue for a 
BEGIN block requiring a dynamic 
storage area 



QBPROL 



QADJAL, QFSKIP, QF0201, QMOVE 



- + 



Creates stereotyped or special 
prologues for PROCEDURE statements, 
depending on conditions. Processes 
statement label pseudo-code items 



QPPROL 



QADJAL, QFSKIP, QF0201, QMOVE, 
QONPRL 



■+- 



Creates a compiler label marking 
the return from a BEGIN block 



QBEGEP 



QADJAL, QF0 201, QMOVE 



4 



+- 



Creates a prologue for ON block 



QONPRL 



QADJAL, QFSKIP, QF0201 



Assembles code to initialize DSA 
dope vector data areas, and to 
allocate variable data areas 



QADJAL 



QMOVE 1 



■ + 



Skips second file statements 
following a block heading statement 



QFSKIP 



None 



■+ 



Obtains new buffer and chains it to 
the previous one 



QF0201 



None 



■+ 



■+ 



Moves input text being skipped from 
input buffer to output buffer 



■+ 



QMOVE 
QMOVEl 



None 



Moves a second file statement, 
pointed at by PARI, to the prologue 
being generated 



QMOVE 



L._ 
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Table QFl. Phase QF Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



QADJAL 

QBEGEP 
QBPROL (QG) 

QEOP 
QFSKIP (QG) 

QFOOOO 

QF0201 (QG) 

QF0360 

QF0370 

QF0570 

QF06 25 

QF08 60 

QF1172 

QFl 19 4 

QF1215 

QF1511 

QMOVE 

QMOVEl 

QONPRL (QH) 

QPPROL (QG) 

QSL 



Assembles code to ir,itialize DSA dope vector, variable data areas, 
and to allocate variable data areas. 

Creates a compiler label marking the return from a BEGIN block. 

Creates stereotyped prologue for a BEGIN block requiring a dynamic 
storage area. 

Frees text storage at end of phase; releases control. 

Skips second file statements following a PROCEDURE or BEGIN state- 
ment. 

Scans text for statement labels, PROCEDURE statements, BEGIN state- 
ments, BEGIN END Statements, and end-of-program marker. 

^3ove3 code to output buffer; obtains new buffer if required. 

Tests for external procedure. 

Generates prologue for GFT DSA. 

Generates code to copy argument and target addresses. 

Tests for entry points. 

Tests end of chain. 

Tests end of first region. 

Extracts mapping code from second file. 

Tests for storage required. 

Removes VDA accumulator assignment code from mapping code. 

Moves text from input buffer to output buffer. 

Moves second file statem.ent to prologue being generated. 

Creates prologue for CN block. 

Creates stereotyped or special prologues for PROCEDURE statements, 
depending en conditions. 

Processes statement label pseudo-code item^s. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 
r 



T ■ T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+■ 



Subroutines Used 



General scan of text for ALLOCATE, 
BUY and FREE statements 



GSl 



ALLOC, BUY, 3UYP, FREL, TRFl, 



+- 



+- 



Allocates items not requiring dope 
vector 



AL20 



AL15, THF2 



+■ 



Generates code to move sKeletcn 
dope vector into workspace for 
controlled variables 



MOVEDV 



TRF2 



+ - 



Looks ahead to reverse pointers for 
ALLOCATE Statements 



REVPT 



GSl, TRFl 



■+- 



+ - 



Allocates storage for controlled 
string 



AL28 



GSl, LIBCl, LIBC2, SCANSF, TRF2 



Allocate storage for controlled 

array 



AL27 



ABOUND, LIBCl, ^;OVEDV, PREVAL, 
SCANSF, TRF2 



■ + ■ 



Allocates storage for controlled 
structure 



AL29 



BNDEXP, LIBCl, MOVFDV, NXTREF, 
NXTVAR, PREVAL, SCANSF, TRF2 



Loads Library call parameter reg- 
ister to free allocated storage 



FREE 



TRF2, TRF3 



■+- 



+- 



Moves skeleton dope vector for 
bought temporary 



BUYP 



TRF2 



-+■ 



Buys storage foi' temporary array 



BY14 



+- 



SCANSF, TRi2 



Buys storage for temporary struc- 
ture 



BY13 



LIBCU, NXTREF, NXTVAR, SCANSF, TRF2 



+ ■ 



Places initial value code line for 
controlled variables 



AL15 



NXTRF, SCANSF 



Skips scan register over initiali- 
zation statements 



SKIPTX 



GSl 



■+■ 



Generates code to set a pointer to 
the previous allocation. 



PREVAL 



TRF2 



Searches dimiension tables for 
adjustable bound expressions 



ABOUND 



SCANSF 



Generates code for temporary varia- 
bles requiring only a dope vector 



STMP 



LIBC3, TRF2 
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Table QJl. Phase QJ Routine/Subroutine Directory 



J. ^. 

I ROUTINE/SUBROUTINE I 



FUNCTION 



h 



ABOUND (QK) 
ALLOC (QK) 
AL15 

AL20 (QK) 
AL27 (QK) 
AL28 (QK) 
AL29 (QK) 
BNDEXP 

BUY 

BUYP 

BY13 

BY14 

BY15 

FREE (QK) 

GSl 

LIBC1/LIBC2/LIBC4 

MOVEDV (QK) 



NXTREF 


(QK) 


NXTVAR 


(QK) 


PREVAL 


(QK) 


REVPT 




SCANSF 




SKIPTX 




STMP (QK) 


TRFl 




TRF2 




TRF3 





Searches dimension tables for adjustable bound expressions. 

Ascertains the type of allocate statement. 

Places initial value code line for controlled variables. 

Allocates items not requiring dope vector. 

Allocates storage for controlled arrays. 

Allocates storage for controlled strings. 

Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of struc- 
tures. 

Ascertains the type of Duy. 

Moves skeleton dope vector for bought temporary. 

Buys storage for temporary structure. 

Buys storage for temporary array. 

Buys storage for temporary string. 

Loads Library call parameter register to free allocated storage. 

General scan of text for ALLOCATE, BUY, and FREE statements. 

Places the library calling sequence tor controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for con- 
trolled variables. 

Obtains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to riie previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library calling sequence to the output text. 
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•Table QX. Phase QX Print Aggregate Length Table 



T " T- 

iMain Processing] 
Routine 



I I 



I I- 



Statement or Operation Type 



Subroutines Used 



■+- 



■+ 

I ANAGG 



I Scan storage chains in dictionary | SCANC 
I for aggregate entries 



|. _ „ 

I Analyze aggregate dictionary 
I entries and print table entry 

L 



■+- 



iANAGG 



I ANCOB , FINALA , FIRSTA , FCR^iAL , GETVO , 
j GETSE , PRALEN , PRHED , VOPLUS 
.X 



•Table QXl. Phase QX Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 
^ „ 



Function 



ANAGG 

ANCOB 

FINALA 

FIRSTA 

FORMAL 

GETVO 

GETSB 

PRAIEN 

PRHED 
SCANC 

SETPH 



VOPLUS 



L._ 



Analyzes dictionary entries for a major structure or non-structured 

array. 

Finds original major structure dictionary entry for a COEOL major 
structure. 

Calculates address of final basic element of a major structure. 

Calculates address of first basic element of a major structure. 

Calculates length of a non-structured array. 

Gets virtual origin of a dimensioned variable. 

Sets pointer to BCD in a dictionary entry. 

Prints an entry in the Aggregate Length Table, and gets statement 
number. 

Prints main heading of table. 

Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 
aggregate entries. 

Prints first page heading and sets print buffer for subsequent page 
headings. headings. 

Calculates address of first or last element of major structure. 
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Chart 09. Register Allocation Logical Phase Flowchart 



* Al* 



*****A I********** 
♦FIRST SCAN RA* 
*-*-♦-•-•-♦-*-♦-• 

* ESTABLISH ♦ 
•ADORE SSI Bl LI TV ♦ 

* • 



4i**************** 



***** 
*10 * 
» Bl* 
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Chart HA. Phase RA Overall Lcgic Diagram 



***** 

*RA » 
» Al* 



•«***A1********** 



GET^SCWfcH 



*«***B1 ********** 



***************** 



CI *. 
• * *» 

• * *• V 

♦.^PROC/BEGIN ^.♦. 

*♦. .** 



ACT6 

*••*«(; 2********** 
* STACK ♦ 

{NFORHATION * 
R.eRfYioys • 



• X* 



^ROC/B 



IN 



* NO 



***************** 



«****(; 3*****«**** 



********** 



• *• 


ACT? 




Dl *. 


***«*n2********** 






* OQMN DATE * 


*** 


»♦ *. V£S 


* STACK IN * 
...X* SCRATCH *... 


* 


*.PROC'/BEGIN« .*.„.,. 


• X* Bl 


*• •* 


* STORAGE ♦ 


* 



***************** 



•.|TATi 
**, 



.♦'statement**, ve 



UPSN 

«*«**C3********** 

* GENERATE * 

* CODE TO * 
, X* yPBATE *. 

EHENT ♦ 



**•***: 



STATEHE 

SLOT • 

*********** 



GENFLP 

*$**«C4**4i««***** 
* GENERATE ♦ 



<* UPDATE *. 

* PREFIX * 

♦ ON-SLQTS ♦ 
***«*•**}!(******* 



♦ INSTRUCT I 



*. YES 
...... 

ON* 



DRTEST. AOTEST ATO .*. 

*«***pf*t******** F3 *. 

• EXTRACT ♦ .♦ HAS ♦. -5,'. 

...x^MI??ffe : X*;* mguflS'* *:•: xl 'l^\ 

* AND OPFSlfs ♦ ♦. BEFORE .* • AD 



***************** 



*****): 4*******«** 
GeNERATE * 

■ ;d from * 

.OREO ♦. 

DDR^SS * 

* 
***************** 



X 






ACT12 

♦ ** 






Gl ♦. 






**62********** 


mf. 


*, 


YES 


* 
* 


IRi-'oF^" 




** 


♦•a... 


...X* 

* 


^''^Sisr' 




• .♦ 






* 






♦. .♦ 








♦ NO 








• 





DTY 5 

*****G3 *•**•***«* 

* PRODUCE ANY * 

* NfC|SSARY * 

* aooreIsing ♦. 

* instructions ♦ 

* in scratch ♦ 

***************** 



G4 *, 

'*mi * 

RE 
. IN-LINE 
♦. •♦ 

♦• .♦ 
• NO 



U2S 

***««G5* ********* 

r?sfTSS8?f§^i''°: 

0..X* FROM SCRATCH *... 



-TORAG_ 
♦ TO IN-LINE * 

***♦*•***$******* 



• *«* 
ACT13 

i****H2 **♦*♦*♦*** 



***************** 



IN INSERTION 



******«•*•••••*** 



Jl *. 

.* END *. 
NO .* OF *. 
...*. PROGRAM .* 



**** 

¥ * 

» Bl * 

* * 

**«* 



ADD|ADn2 X 

***«*JJV«********* 

* IF IN PROLOG, • 

* GENERATE 

* STORE OF 

* r.ALCULATFO 
» ADDRESS « 
**«***••«*•*****• 



*.■ 



***************** 
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Chart RF. Phase RF Overall Lcgic Eiagrair 



*•♦»• 

♦RF ♦ 
♦ *1* 



••**«A1 ********** 
♦GET TEXT BLOCK • 
♦FOR OUTPUT ANO * 
*SCRATCH STORAGE* 

* FOR LISTS * 

* AND STACKS * 
•••••««*•**•***** 



**** , 
P9INIT X 

•****B1***«***«** 



«**«*•*******««** 



.* USING *. YES 
*. PSEUDO- .*.... 
•INSTRUCTION* 



****^B6^ ******♦♦* 

* CONSTRUCT * 

* COMPLETED * 
,X*INSTRUCTION AND*X.. 

* OUTPUT * 

* ♦ 
***************** 



♦♦***C2^********* 

* EXTRACT ♦ 

♦ REGISTER ♦ 
ANO *. 



USA 



>LIEO 
kSES 



***************** 



OBREGS 

*****C ?********** 

• SCAN REGISTER * 

• TABLE FOR * 
...X* REQUESTS * 

• PRESENT • 



***************** 



.* ALL *. 
.* REGISTERS *. YES 
*. AVAILABLE .*.... 



«****C4«********* 



***************** 



• * *• 

* BRANCH ♦. NO 
IN OR OUT .♦... 

*. POINT .♦ 



Fl 



*, 



*, 



. * PROLOG *. YES 

INSERTION . 

POINT .* 

*• .* 

*• •* 

♦ NO 



♦****F2 ********** 

* GET FREE ♦ 

* REGISTER FROM * 

, X*REGISTER TABLE.*. 
*GENERATE STORE * 

* IF NONE * 
***************** 



***«*F2*****^**** 

* BRING IN * 

* ADDRElsiNG * 
,..X* INSTRUCTIONS *. 

* FROM ♦ 



ii**iii*****i 



* ENOUGH *. NO 

►.REGISTERS.** * 
*• •♦ 



REGIS^^ . . 
, X^.HAVE PRSylOUS.*. 
♦.VA^UE IN .* 
■ TORE.* 



* GENERATE COOF ♦ 



***************** 



*****G3****4 

* EXPAND 

* ADQRESSIN 
..X* INSTRyCTIO 

* IN OUTPl 



♦....X^ Bl * 



***************** 



.♦ ♦. 

.♦PROC/PROC ♦. YE 
♦.BEGIN/BEGIN' .*.. 



I .* 

*• •* 
• NO 



.* DROP. *. YES 
*.IPRM>, EPRM> .*.... 



LPROCi 
LEND 

*****H2********** 

* UPDATE * 

• OR DOWNOATE ♦ 

-- 



***************** 



LOROP 

****«j 2* *******<) 

• QELETE 

• REFERENCES IN 
...X*REGISTeR TABLE 

• ANO SCRATCH 



NO .* END 

. . . *. OF 

*. PROGRAM 



***** 
*TF • 

***i* 
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Table RA. Phase RA Register Allocation Addressibility Analysis 
r 



T ■ T 

Main Processing 
Routine 

+■ 



Statement or Operation Type 



Subroutines Used 



Controls scan of source 



LAA 



|. 

Processes RX, RS, or SI instruc- 
tions 



+- 



+- 



ACTl, ACT2, ACTS, ACTS, ACT9, 
ACTIO, ADCEUF, GETSBF 



ACT3 



ADTIiST, DRTEST 



|. 

Processes SS instructions 
I" 



+- 



+- 



ACT 4 



ADT£ST, DRTEST 



+■ 



Compiles code for start of PL/I 
Statement: 1. with label, 2. 
without label, 3. compiler label 



ACTl 5, ACTl 4, 
ACT16 



ADCBUF, GENFLP, UPSN 



•+■ 



+ ■ 



Processes PROCEDURE and BEGIN 
blocks 



ACT 6 



ADCBUF 



4- 



Processes END statements on PROCE- 
DURE or BEGIN blocks 



ACT 7 



ADCEUF 



■+- 



Adds text to output string 



ADCEUF 



GETCBF 



■+- 



Adds text to insertion file 



ADIBUF 



GEIIBF 



+- 



Obtains new source buffer 



GETSBF 



None 



Obtains next output buffer 



GETCEF 



None 



■+ 



Obtains next insertion file buffer 



GETIBF 



None 



+- 



Examines dictionary reference in 
source 



DRTEST 



ADINST, DECOMP, SETBLK 



4 



4- 



Produces recovery code when literal 
offset greater than 4095 is met 



ADTEST 



ADCEUF 



4- 



Creates coded addressing instruc- 
tions 



ADINST 



ADCBUF, ADIBUF 
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Table RRl. Phase RA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 

h 



Function 



■I 



ACTl 

ACT 2 

ACT 3 

ACT 4 

ACTS 

ACT 6 

ACT7 

ACTS 

ACT 9 

ACTIO 

ACTl 2 

ACT 13 

ACTIU 

ACTl 5 

ACTl 6 

ADD/ADD2 

ADCBUF 

ADIBUF 

ADINST 

ADTEST 

ATD 

DECOMP 

DRTEST (RB) 

DTY 

GENFLP 

GETCEF 

GETIBF 

GETSBF 

LAA 

L125 

SETBLK 

UPSN 



Copies non-special three-byte item to output. 

Copies non^special five-byte item to output. 

Processes RX, RS, or SI instructions. 

Processes SS instructions. 

End of block routine. 

Processes PROCEDURE and BEGIN blocks. 

Processes END staterrients on PROCEDURE or BEGIN blocks. 

End of source text routine. 

Action of start of coirmon block of prologue. 

Action at end of prologue. 

Copies absolute code to output stream. 

Creates ADI instruction at prologue insertion point. 

Compiles code for start of PL/I statement with label. 

Compiles code for start of PL/I statement without label. 

Compiles code for start of PL/I statement compiler label. 

Generates store of calculated address. 

Adds text to output string. 

Adds text to insertion file. 

Creates coded addressing instructions. 

Produces recovery code when literal offset greater than U095 is met. 

Tests whether previous offset is out of bounds. 

Decodes dictionary reference. 

Examines dictionary reference in source. 

Scans step table and generates addressing instructions. 

Generates code to set bits on and off in a prefix ON-slot. 

Obtains next output buffer. 

Obtains next insertion file buffer. 

Obtains next source buffer. 

Scans input text. 

Moves addressing instructions to IN-LINE. 

Finds block number of referenced item. 

Generates code to keep the statement number slot in the rSA up to 
date. 
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Table RF. Phase RF Register Allocation Physical Registers 
r 



T T 

Main Processing 
Routine 



Controls scan of text 



Statement or Operation Type 



+- 



+■ 



Subroutines Used 



Z9 



+- 



+- 



ADCBUF, ADIMOV, BRl, ER3, ER4, 

GETNXT, LBAL, LBALR, LECTR, LEOB , 

LEOF, LRl, LR3, LRU, LK6, LR7 , LR9, 
LSHIFT, OBREGS 



Processes PROCEDURE or BEGIN state-|LPRCC 
nient 
^ +. 

Processes end of PROCEDURE or BEGIN | LEND 
block 



None 



None 



Processes requests for registers; 
allocates physical registers 



OBREGS 



BRGUSE, LOADl, STORE 1, STORE 2 
REGUSE 



+■ 



Compiles code to store syirbclic 
registers 



ST0RE2 



ADCEUF 



+- 



Compiles code to store assigned 
registers 



STOREl 



ADCEUF 



■+- 



Compiles load of physical registers 



LOADl 



ADCEUF 



■ + 



Compiles load register 



LOADRG 



ADCEUF 



■ + ■ 



Expands coded addressing instruc- 
tions 



ADIMOV 



ADCEUF 



• + ■ 



JAdds to output buffer 

L 1 



ADCBUF 



None 



Table RFl. Phase RF Routine/Subroutine Directory 



J. y. 

I Routine/Subroutine | 



Function 



h 



4- 



ADCEUF 
ADI^50V 
BRGUSE 
BRl (RH) 
BR3 (RH) 
BR4 (Rri) 
FRTEST 
GETNXT 
LADl (RH) 
LB (RH) 



Adds to output buffer. 

Expands coded addressing instructions. 

Tabulates use of base register in look-ahead. 

Processes RX branch instructions. 

Processes BCT instructions. 

Processes RR branch instructions. 

Scans list of free registers to make even-odd pair, 

Obtains next block. 

Processes ADl (addressing) instructions. 

Constructs and puts out completed instruction. 
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Table RFl. Phase RF Routine/Subroutine Directory (cont'd) 

Function 



r T- 

I Routine/Subroutine | 



f- 



4- 



LBAL (RH) 
LBALR (RH) 
LBCTR (RH) 
LDROP (RH) 
LEND (RH) 
LEOB (RH) 
LEOP 
LOADl 
LOADRG 
LPROC (RH) 
LRl (RH) 

LR3 (Rh) 
LR4 (RH) 
LR6 (RH) 

LR7 (RH) 
LR9 (RH) 

LSHIFT (RH) 
OB560(RG) 
OB630 (RG) 
OB895 (RG) 
P9INIT (RH) 
OBREGS (RG) 
REGUSE 
STOREl 
STORE 2 
W4 (RH) 
Z9 (RH) 



Processes BAL instructions. 

Processes BALR instructions. 

Processes BCTR instructions. 

Processes DROP pseudo-instruction. 

Loads end of PROCEDURE or BEGIN block. 

Processes end-of-block marker. 

Processes end-of-program iriarker. 

Compiles load of physical registers. 

Comipiles load register. 

Processes PROCEDURE ' or BEGIN statement. 

Processes instructions in which first and second operands require 
loading, and the first is altered, e.g., AR. 

Processes floating-point instructions. 

Processes SS instructions. 

Processes instructions where a load of first operand is required, no 
operands are changed, e.g., ST. 

Processes SI instructions. 

Processes instructions in which no load of first operand is needed, 
and it is changed, e.g., LA. 

Processes shift instructions. 

Tests whether all registers are available. 

Generates stores of registers if branch in or out. 

Generates code to load registers. 

Main text scan. 

Processes requests for registers; allocates physical registers. 

Tabulates use of registers in look ahead. 

Compiles code to store assigned registers. 

Compiles code to store symbolic registers. 

Extracts ADIs at prologue insertion point. 

Controlling scan of text. 
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Chart 10. Final Assembly Logical Phase Flowchart 



• PAS SI TF* 

*..*.■(-*-*_•-*-«-* 

• ASSIGN OFFSET • 

• TO LA9ELS • 

• • 



♦OPT TJ* 

• OPTIMIZE • 
♦MVC'S AND BC'S * 

• * 



***4i*01 ********** 

*ESO TO* 

*-*-•-*-*-*-*-*-* 

* GENERATE * 

* ESP CARDS * 

* tt 
*******4i**«**«**« 



***•*£ I ********** 

*PASS2 TT* 

♦-♦-*-*-*-•-♦-*-» 

* RFNFRATE TXT • 

* AND RLn CARDS « 

* * 



*STATIC UA* 

• -:|i-*-4r-*_*-*-*-« 



• *|>* ***•••«***•*« 



* GENERATES RLD • 

* AND TXT CARDS * 

* * 
**:ii**** *•*•*****« 



• *ili*«Hl ********** 
*STATIC UE* 

♦FURTHfR STATIC * 
*INITIALI2ATI0N * 

* * 

**<|i****4i*********: 



Jl 

* 


* 


LIST TEXT 


♦ , 


« * 


*• < 

* 


* 
NO 


X 

• ** 


t* 


*XA • 
* Al* 



*-•..*-*-*-•-•-*-« 

<♦ * 

* LIST TEXT * 

* * 



***** 
*XA * 
* Al* 
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Chart TF. Phase TF Overall Logic Diagran 



*TF * 
♦ Al* 

* * 



« * 

• A3 * 

* * 



♦ STORAGE FOR ♦ 



***************** 



,* 



A3 



*, 



.* END ♦. YES 

►• OF TEXT .*.... 

*. BLOCK •• 
*• •* 

*• •* 
* NO 



*.i..X* Bl * 



***************** 



* Bl *.X. 

* • • 

IL0003 X 

*****Ql********** 

* GET BRANCH ♦ 

♦ LIST INDEX * 

• FROM TABLE . 

• USING CURRENT * 
» OP CODE * 
***************** 



♦X. 



IL002* X 

*****Q2********** 
* GET LENGTH • 



5F' CURRENT 
.ITEM FROM 



***************** 



.*. iLonio 

Cl *. *****C2********** 

,* *. • SAVE CyRRENT 

.♦ PROCEDURE *. YES ♦ LOCN C 

*. MARKER .*... X* VALUE 



*, 



,» 



, * 



SAVE CURRE 

;n COUNTER 
. .-UE IN Efl 
OF CONTAININI 



_. JG ♦ 

PROC (IF ANYT ♦ 
***************** 



***** 

• TJ * 

• Al* 



*****(, J********** 

* DETERMINE • 

• NUMBER OF * 

•'':*?s§s^E?f?«i«Tr*' 

•OF Sir "• --• ' 

******* 



*****CI,********** 

* * 
SET LOCATION 

COUNTER 
TO ZERO 

• • 
***************** 



.X* 



*.<..X* B2 * 



»**«D2 ********** 



PROCEDURE .* X* IN LOCNl SLOT *. 

, MARKER .* * OF ♦ 

♦. ,* * ENTRY TYPE 1 * 

«. .* ***************** 



*****^j********** 

* ADO SIZE OF * 

* PRDCiPyRE TO ♦ 
,X* CURRENT TOTAL *. 

* PROGRAM SIZE * 

* * 
***************** 



RESTQR 
aCATID 

ink F 





El *. 






* *• 




.* 


PLB S *. 




, 


OR 


* 


*, 


PCBS .* 
*• •* 

*• •* 
* NO 





.♦NGN-BRANCH *, YES 
». MACHINE .*.... 
♦. INST .* 



iLnois 

****«E2********** 

* PLACE SIZE * 

* OF PROCEDURE • 
,..X* SO FAR IN *. 

*L0CN2 OR L0CN3 * 

* SLOT OF ETl ♦ 
*•*•*****•***••*• 



IL001« 

*****P2********** 

• add length of * 

• Instruction * 
,,.x* to location *. 

• COUNTER • 



*****f:j********** 

* RESET LOCN • 

* COUNTER TO • 

"♦FOR AOpREsllNG ** 

* AOCONS * 
***************** 



.* BRANCH *. YES 
*.0R LOAD AOOR .*.... 
*. INST .♦ 



*•*«•***•*«•*«*«* 



iL:y2? 

*****Q2********** 

* DETERMINE * 

* AMOUNT OF * 
,..X* CODE NEEDED ♦. 

* TO PERFORM • 

* OPERATION * 



*****ai********** 



X* SET IN THE 

* PRECEDING ADR * 

* PSFunn-coDE * 

***************** 



*****^ I,********* * 

* SET PROLOGUE * 

* SWITCH * 
<* ON (PLBSI *. 

* OR • 

* OFF <PC8S) * 
***************** 



• *• 

1 *. 

*. 


/" 


IL 


"iJl-J 

•«**«H2********** 

I *^^ig^RE5f : 

X* LOCATION *.. 

* COUNTER VALUE * 

* AS OFFSET ♦ 


♦ ♦•« 
* * 
. .X* B2 * 


• ♦* 

*• •* 






• * 


• NO 

y. 










**** 










* * 










* A3 * 

* • 










**** 
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Chart TJ. Phase TJ Overall Lcgic Diagram 



• TJ ♦ 

* Al* 



*IN(TIALrZATION * 



*4l««*Jli4l****«*«r*** 



A3 



• *• 



* • N _ 

* 02 OX....*. OF . .• 

* • ♦. PROGRAM .« 



ar 



***««B3********** 



OPTIMA X 

*4i*4i*C 1 **«•*****• 
*6ET FIRST TEXT * 

* BLOCK. SET * 

♦ LOCN COUNTER *X 

* AND PROGRAM * 

• SIZE TO ZERO • 



**«*i|iC2*****'*'***4> 



*«•*«*««***••««*• 



«**••****•***•«** 



• *• 



REPEAT 
SWITCH ON 

,♦* 



■*, 



***** 

•TO * 
♦ Bl* 



IL«003 X 

***«*ni********** 

* GET BRANCH * 

* LIST INDEX ♦ 

* FROM TABLE 1 ♦X, 

* USING CURRENT • 

* OP CODE * 
*«****•******•*«* 



,* iteh fro 



**4[*«******««i«** 



«****n3 ********** 
- - -SEND SCAN ♦ 
DTHFR THAN * 



***************** 



.* 



E3 



• *• 



*. 



ILlt'C'l 

*****E4 ********** 
EVALUATE NEM 



*. MARKER .* 
*. ,e 
*• •* 
* NO 



.* END OF *. YES 
*. PROCEDURE .*.... 
*. MARKER .* 



.X* SAVE LOCN CTR *. 
*VALUE IN LOCNl ♦ 
• SLOT * 

******•****«•«*** 



DPTA ., 

• X*. FLAG ON IN .* < X*SET LOCN 

♦. NEW ETl .* ' - 

*. .* 
*, ,* 



* AOCON NEEDS, • 
^"- LOCN COUNT *. 
» TO ZERO • 

* * 
***************** 



nu 



**F2********** 

• IF SCANNI " 

♦ CURRENT PR .. 
• .X* UPDATE PROC 

* SIZE IN LOCNl • 

* SLOT * 
***************** 



*****F3********** 

• IF OPTB FLAG • 

* ON, SET OPTA ♦ 

, X* ON AMD RESET *. 

• OPTB ♦ 

* * 
***************** 



**«**p<^********** 

* RESTORE ♦ 

* CONTEXT OF * 
CONTAINING *. 

» PROr.FOURE * 

* * 
***************** 



. X* 



Gl *. 

.♦ MACH. *. 
.♦INST, PLBSt*. YES 
*.PCBS, END OF .*.... 
♦. BLOCK .* 



* ALL TREATED * 
<* IN SAME WAV ♦. 

* AS IN lEMTF * 

* * 
***************** 



• •* 

*• •* 
* NO 



*i***H2********** 

• * 

♦ ASSIGN NEW » 
<» OFFSET TO *. 

♦ LABEL • 

* • 
**•«*•***«•**«••• 



.» CHANGE *. YES 
.X*. FROM > 4096 .*.... 
*. TO < 4f 96, * 



*****H4********** 

* SET OPTB ON • 

* IN ETl OF * 
.(.X* CURRENT PRQC 

* SET REPEAT 

* SWITCH * 
*•*«*****•*•***** 



*•• 



***** J3********** 
* IF PREVI" - ^ 
INST WAS 
ATTEMPT 



***************** 



**** 

* * 

* A3 * 
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Chart TO. Phase TO :>verall Lcgic Diagram 



•TO ♦ 
* Bl» 



*****B !«••* ****** 

* « 

* GENERATE BASE * 

* FOR ESO ENTRY » 

* NAMES ♦ 

* * 



* 

* HAKE 6 

* STANDARD 

* ESO ENTRIES 

* 



• ***4i01 ********** 

• HAKE SO TYPE ♦ 

• ENTRY FOR * 
♦THE HAIN CSECT ♦ 
•IF EXT PROC HAS^ 

• 'HAIN" OPTION * 
•*•••«*••*•*••*•• 



*i***f I ********** 
* MAKE LO TYPE ♦ 
•ENTRY FOR NAHES* 



***************** 



* P.R. OF EACH * 

* BLOCK IN THE • 

* COHPILATION • 

*•****•*****••••• 



LGCSn X 

* SCAN 

* EXTERNAL 



*•***••••*•«•••* 



SCAN 
TROLl 
CHAIN 



* CONTROLLED 



•*•••*•*•••****• 



.* 01 CT *. 
c* ENTRY FOR *. YPS 
>X*. OECLAREO .*.... 
*. VARIABLE .* 



HI « 

* 

FILE 



*•••* J 1 •*•***•*• 
* 

* HAKE SO 

* ANO PR 

* TYPE ENTRIES 
* 
**************** 



,* EXTERNAL *. NO 



*. CONDITION.* 
•.NAHE .* 
•. .* 
* YES 



*****J2*******«** 



TYPE ENTRY 



*•••*«****«*•**«* 



•.FUNCTION .• 



*****j-^********* 
* 

* HAKE ER 

* TYPE ENTRY 

• 
* 
**************** 



*****G5* *••**•*•* 



***************** 



* OICT *. NO 


ILf 2'^'* 

*****iti*****ti**** 

* iHriNC ♦ 

♦_*_♦_»_«-«_♦_♦_* 


ALLOCATION OF 
VARIABLE* 


♦ OF LIBRARY ♦ 

* MODULE N«MFS * 



**•*«««**«***«*«* 



*****^^********** 

* « 
*PRnOUCE ER TYPF* 
•FNTRY FOR FACH ♦ 

* MmULE • 

* * 
***************** 



***** 
*TT * 
* Al* 
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Chart TT. Phase TT Overall Lcgic Diagram 



*♦**♦ 

♦TT * 
* Al» 



*««**Ai**** ****** 
♦INITIALIZATION ♦ 

♦ S6T SMITCHPS * 
♦FOR PONCH/LOAO ♦ 

♦ OPTIONS ♦ 

♦ * 



♦♦♦♦ , 
ILOOC? X 



««******4i****4i«4i« 



*•*♦.'•52Sl&^.*•• 



.♦ 
. .♦ 

♦ NO 



ILQOO? X 

♦ *li«*B2 ♦♦♦♦♦♦♦♦♦♦ 

♦ GET LENGTH OF ♦ 

♦ CURRENT ITEM ♦ 
....♦ MOM TABLE ?. ♦ 

♦ BUMP ♦ 
INPUT POINTER 



*«i«*«*«*«4 



*♦♦♦ 





iLojj; 


**♦. .♦•* 

♦. .♦ 

* NO 


♦»♦ 





,x rpstqBe lich .. 

♦COUNTER FROM ♦ 



UPOATE * 

♦BV AOOI 



iPROCLC ♦ 
NDING UP ♦ 



^ . PRQCLN ♦ 

C ■ PRKLN^ 



LN • PRQCLC^. 
LENGTH OF ♦ 
OCjLOCNlt • 

•♦♦{•♦*♦««*« 



«**4i*t)3«******«** 



•*****4i*4i*«4i«*««« 



GENT XT 

IRATE TEXT ♦ 



SET. CURRENT 
♦ LOCAflON ♦ 

^t|xtIu;s^?r 



*♦♦ 



Fl 
,♦ 
.♦ MAC .^ 
♦. INSTRUC 

♦ • 
♦. 

♦ , 



Gl «. 
• ♦ ♦• 
.* END OF ♦. VES 
♦ . TEXT BLOCK ...... 

*. ,♦ 

♦, 



*«•♦*•** 



GENT XT 

***««F ;♦♦♦♦♦♦♦♦♦♦ 

♦ GENERATE ♦ 

♦ TEXT AND RLO 
...X^ INFORMATION 

♦ AND PLACE IN 
TEXT BUFFER 



. X^ THE RE 

♦ NUMB, . 

♦ AOCONS 



*.,,..X* B2 ♦ 



♦. 



♦ NO 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*iiiii«*G2 ♦♦♦♦♦♦♦♦♦♦ 

* * ♦««* 

♦ CHAIN TO NEXT ♦ ♦ ♦ 
«♦ TEXT BLOCK ♦ X^ Bl ♦ 



****«**«4i***«**** 



HI ♦. 
.♦ ♦, 

NO .<* END OF ♦. VES 
..♦. PROGRAM ...... 



«* *» 

.♦IS COMPILERS. NO ♦CLEAR TEXT AND ♦ 

.X^. SUBROyTiNE .♦o X RLO BUFFERS . 

♦. HANTEO .♦ ♦ ♦ 



***•*•******• 



* ♦ 

♦ MARK CURRENT ♦ 
K« TEXT BLOCK ♦. 

» UNWANTED ♦ 

» ♦ 



♦♦♦♦« 
♦UA ♦ 
♦ A2^ 



»*4ij3 **•«*«*«** 



**«**4i***«***fti*** 
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Chart iJA. Phase UA Overall Logic Diagram 



♦ A2» 



••••*A3««***4«**« 



•INITIALIZATION *. 



••••*•**•*•«*•**« 



•***•****••**•*** 



B3 *. 

* « 
END OF 
CHtIN 



.*X « GET NEXT ITEH *X. 



«•*•*•****•«***•* 



UA3 10 X 

♦START SCAN FOR » 



****4i«**«******** 



.»/ 



.* ♦. .*SIHPLE ♦. 

•• EXTERNAL •.NO .♦ DATA *. 

>. ITEM .* X*. VARIABLE .* 

•. .♦ *.0R LABEL .♦ 



* TXTMpV* 

• X* * 

* PROCESS ITEM * 

* * 



UA013 



ENO OF *. YES 
THIS PART ...... 

OF SCAN .♦ 



UA014 

«*•**[) 3********** 
• TXTHOV* 

♦-♦-»-♦-»-•-♦-♦-♦ 



*•*••*****•*•*•** 



t****^!********** 



* GET NEXT ITEM *X. 



*•*«•*••**•*••••* 



*. CHAIN .* 



***** 
*U0 • 
* B2* 



****E5********* 

* 4 

* TXTMOV ♦ 

* 4 
*************** 



*-*-«-*-*-*-•-*-* 

** PROCESS ITEM • 

* * 

***************** 



i*«*F3 ********** 



*•«•«*•«******«** 



*****f:5*** ******* 



***************** 



END OF 

STATIC 

CHAIN 



***** 

♦ UO * 

• B2* 



******05* ********** 



««****«*•**** 



* GET NEXT ITEM •X. 



***************** 



YES .* ARRAY OR 
....*. STRUCTURE 



****H^ ********* 
t * 

* RETURN ♦ 

* 4 
*************** 



UAn25, . 

UAr>215t . 

UA>8!^ X 

•**«*J3***««**«** 

* TXTMOV* 
*-*-*-*-*-*-«-*-* 

,,,, * * 

* PROCESS ITEM ♦ 

* * 
***************** 
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***** 

*uo ♦ 

* 82* 



*****B2******'**** 
--- TXT * 

.. - .^D * 

♦skeletons with * 

* csect no. of * 

* statIc • 

*«••********«**** 



*****C2 ********** 

* MOVE CURRENT • 

* LENGTH OF * 

* STATIC FROM * 
*COMM. REG. INTO* 
« OSAOFF * 
***************** 



*****D2*****o**«* 

* REFER TO * 

* FIRST OR NEXT 

* STATIC OSK 

* OICTIQNARW • 

* ENTRY * 
*«**********<li**«* 



*X. 



*****D3********** 

* UPDATE * 

* OSAOFF BY ♦ 
, * LENGTH OF * 

* PREVIOUS OSA • 
« * 
*«********•**«*«* 



«**«*E2*****>i>**** 

♦ GENERATE TXT * 

• CARD. OFFSET- ♦ 



*•**«*•*****>>***• 



*«*i*«F2********** 

* ApCESS AUTO * 

..X* ENTRY TYPf 1. » 

* SCAN IT • 

* * 
*««««*«•**«***•«* 



, * *. 
DELIMITER 



***** 

♦ UE ♦ 

* A3* 

* * 



NO .♦ ITEM *, 

(..*. REQUIRING . 

*DnPE VECTOR* 




H4 *, 
.* *. 
.* *. YES 

*. STRUCTURE ,*,.», 

*, ,* 

*, . * 

*g «* 

* NO 



•*«**J4 ********** 

* GENERATE TXT * 

* CARO nOPF * 

* VICTOR AND * 

* RLO CARO FOR * 
♦VIRTUAL ORIGIN • 
**«•«**«**«****•* 



*****Hf ********** 

* GENERATE ♦ 

* TXT CARI ♦ 
,X* FOR STRUCTURF ♦ 

* DOPE VECTOR * 
« * 
***************** 



***** J ;•*«******* 

* SCAN BASF * 

* ELEMENTS ♦ 

* 6ENFRATIN0 * 

* RLO CARDS FOR * 
*VIRTUAL ORIGINS* 
***************** 
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Chart UE. Overall Logic Diagrair 



***** 

♦UE * 
* A3» 



«i*«*A3«********* 



♦ STATIC CHAI 



***************** 



• ♦• 



S .♦ END ♦. * GET 

• *. OF CHAIN .*X * NEXT IT 



***************** 



UACOJ S 

*****C2********** 



***************** 



UAar^.a"? 



YES .* EXTERNAL •• NO 



t '. t <:' r • 
*****C5********* 



**************** 



.* X*OF 



***************** 



*****£!*•******** 



* GET NEXT ITEH *X *, 



***************** 



i 

E2 «• 

.* DOES *. 

,* ITEM *. 

NEED DOPE .* 
*, VECTOR .* 



*. 



• YES 



*««**F2*******'*** 



.X * GET NEXT ITEH *X. 



***************** 



.* PROCESS ITEM 



***************** 



F3 •. 






* *• 






OF ?H»IN 


*. 
** 


*r? 


*. ,* 






*. •* 






* YES 







.1/ 



•»****•*********: 



•EXTERNAL CHAI 



***************** 



*****H4********** 



***** 
•UF * 

•**r 



*****j3*******««* 



***************** 



.»/ 



*****J5*****«**** 



lEM • X*. 



■•.^......X* PROCESS ITEM • 



**•******««*«**** 



******** ********* 
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***** 

*UF * 
* Al* 



» • 

♦INITIALIZATION.* 



**«*«******«*•**« 



iLiioo:) X 

4i*l1'**Bl ********** 

* GET BRANCH » 

* LIST INDEX ♦ 

* FROM TABLE 1 *> 

* USING CURRENT * 

* OP CODE * 
**i|i* ******* ***••« 



CURRENT ITEM 
, * FROM TABLE 2. * 

* BUMP * 

* INPUT POINTER * 
***************** 



.*"****•*. 


ILfinio 

*****C2 ********** 

* SAVE CURRENT * 

* LOCN CTR IN * 

...X* LOCNl SLOT OF *. 


* *, ,** 

*• .* 

* NO 


♦ CONTAINING * 

* PROCEDURE ETl * 

***1i************* 



* TO JERO AND * 
X*PROCLC (COUNTER*. 

* BASE) FROM * 

* LOCNS IN ETl * 
***************** 



IL(lfl3 

*«****£ 4*********** 

PRINT 
« * PROCEDURE * 



» ENTRY NAMES ♦ 
AND STAT NO. 
************* 



.*"'****•*. 

.♦ END OF *. YES 
*• PROCEDURE •*.... 


ILtiPll 

****«*02 **«*«•**••* 

PRINT * END 

* PROCEDURE AND * 


•****03********** 
* RESTORE LOCN * 

x: ''Holm aS8" :., 


♦ •*♦ 
* ♦ 
.cX* B2 * 


*. MARKER .* 
*. »* 
*• .* 
* NO 

X 

.*. 

EI *. 

• * *. 

.* PLBSi *. YES 


*AND STATEMENT* 
NUMBER 

************* 

ILt;iil5, 
lLr016 

**i***C2*********** 

PRINT PROLOGUE 

• OR * 


• PROCLC FROM * 

:*k8ss?*;*vs£s;*: 

PRINIT 

•*****! 3*********** 

PRINT LIST 

* OF ADCONS * 


X * ♦ 
. **** 


•*. ^" .* 

*. •* 
*• .* 
* NO 

X 

.*. 

Fl *. 
1 * *. 
.* MACHINE *. YES 
♦. INSTRUCTION .*«..•• 


LOCN CTR - 
************* 

Lprii2,iLrni3t 
L^DU, LO!)|t;, 
L002 6, LOO 27, 
LPOSe. L0032 

• SET UP LOCATION* 

* COUNT ;R AND ♦ 


FOR ADDRESSING* 
PURPOSES 

************* 

IL20r5 

NMOO^a 

*****F3********** 

* IDENTIFY • 

* OPERANDS AND * 
.....X* EXPRESS IN *.. 


******F^***««****** 

PRINT LINF 

• AND * 

oX INCREMENT . 

* LOCATION • 

COUNTER 

************* 


*. .* 
*. • * 
*. .* 
* NO 

X 
.*. 

Gl *. 
■ * *. 
.♦ LABEL *. YES 
•.OR STATEMENT .*..... 


♦ HEX OP CODES * 

***************** 

**i***G2 *********** 
PRINT STATEMENT 

* NUMBER * 


*TERHS OF SOURCE* 
• IDENTIFIERS * 

*****%*********** 

**** 

* * 
oX* B2 * 

* • 


•• NUMBER .* 


* IDENTIFIERS • 





************* 



****«*****••*•*** 



**** 

* * 

* B2 * 

* * 
**** 



,* *, 
.*lS COMPILER*. YES 
*. SUBROUTINE .*..,.. 



*«***J3 ********** 



***************** 



*****K 3**** ****** 

* * 
•PRINT LINE WITH* 

<* OPERATION • 

* MNEMONIC END * 

* * 
***************** 



***** 
»XA * 
• Al* 
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*x* * 

• Al* 



***«*A1 *•******«« 



***«****•*****•*• 



XAPl 

•****A2 ********** 

* ESTABLISH * 

* LEVEL OF ♦ 
,..X* DIAGNOSTIC • 

* PRINT OUT * 



**••••***•*•*•**• 



*****B1***«****** 

* * 
*CONSTRUCT PHASE* 

* DIRECTORY FOR *X. 

* MESSAGE BLOCKS * 

* * 
***************** 



,* ANY *. 
YES .* ENTRIES ♦. 
>...*. TO BE 

*. PRnCESSEO.* 



i««««*8 3 *********** 

* PUT OUT * 
.X MESSAGE 



************* 



***** 
*AA * 
* H4* 



*****C1 ********** 

* LOAD * 

* MESSAGE * 

* ADDRESS *. 

* .BLOCK * 

* * 
***************** 



•«***C2********** 



SCAN 
MESSAG 
CHAINS 



**•*******•****•« 



*****C3******«** 

* HAKE UP 

* LIST OF 
<* BLQCKS 

* NEEDED 
« 
«**«****•••«**** 



*****C^********** 

* RELEASE * 

* MESSAGE * 
X* ADDRESS * 

* BLOCK * 

* * 
***************** 



• *** 

* * 

* D« *.X 

* * 

• *** 



0<t 



, * ALL *. 

•*.p|iif§HiD.*-^ 



***** 
*AA * 
* H** 



***««E1 ****•*•*•* 

* * 

* GET TO * 

* HEAD OF *. 

* CHAIN * 
« * 
***************** 



i****E 2* ********* 



LOAD 
NEXT 
BLOCK 



* X*. NEW CHAIN 



«•*•**•**••***** 



PRINT OUT 

APPROPRIATE 

SEVERITY 

» HEADER ♦ 

************* 



* GET TO 
<* NEXT ENTRY 

* IN CHAIN 

* 

**«***«****«****: 



..NO 
G3 *. 

* *. **** 

END *. YES ♦ * 
OF ,*.... X* 04 * 
CHAIN .* * « 
*, ,* **** 

*. s * 



*****H2 ********** 

* MESSAGE * 

* NUMBER * 

* TO PRINT *. 

* BUFFER * 

* * 
•**•**•**•****•*• 



H3 



.*. 



*, 



HAS 

.* IT GOT *. YES 
,X*. A STATEMENT .*..,. 
*. NUMBER .* 
*. .* 
*. • * 
* NO 



«****H4********** 

* STATEMENT * 

* NUMBER * 
TO PRINT * 

* BUFFER * 

* * 
***************** 



, X* 



• ACCESS 

• MESSAGE 

• SKELETON 

• 
**************** 



*****j2 ********** 



gSSAGE 
EL ETON 



iX* 



*•*•********«***• 



*****J3 ********** 

* BUILD * 

* MESSAGE * 
TEXT IN *. 

* PRINT * 

* BUFFER * 
***************** 



* MFSSAGE * 

****««***«*•* 



K4 



*. 



HAS *c *♦** 

,♦ THIS *o YES ♦ « 

, LAST ENTRY .«.,,.X* 01 * 
♦ .IN CHAIN . * • * 

*I o * «*•* 

*i . * 
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Table Ti' . Phase TF Final /-ssembly Pass 1 

J. ^ ^ 

Main Processing 
Statemient or Operation Type 



^: 

Assiqns offsets to lacels 
|. 1 



+- 



Routine 



+- 



Subroutines Used 



Scans text 



IL0024 



None 



+ ■ 



+- 



+ ■ 



1^0019 



+- 



FI'MLQl, NEXTSL 



Increments location counter for 
machine instructions 
|. _ 

Deterirdnes code for instructions 
which refer to labels 



IL0014 



None 



+- 



-I- 



IL0020 



FINEQl 



Initializes location counter at 
start of procedure 
^ _ 



ILOOIO 



None 



■ + ■ 



Stores size of procedure and 
resumes containing procedure 



ILOOll 



None 



Table TFl. Phase TF Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



■+- 



FINEQl 
ILOOOO 
IL0003 
ILOOIO 
ILOOll 
IL0014 
IL0015 
IL0017 
IL0019 
IL0020 
IL0022 
IL002U 
NEXTSL 



Locates label number table entries. 

Entry point from compiler control. 

Entry point to scan from initialization routine. 

Initializes location counter at start of procedure. 

Stores size of procedure and resum:es containing procedure, 

Increments location counter for machine instructions. 

Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

Determines code for instructions which refer to labels. 

Processes c^nd-of -block pseudo-code item. 

Scans text. 

Determines multiple statement label entries in dictionary, 
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Table TJ. Phase TJ Final Assembly Optimization 
r T- 



Statement or Operation Type 



+- 



Main Processing 
Routine 



+■ 



Subroutines Used 



Controls phase 



ILOOOO 



OPTIMA 



+■ 



+- 



Maintains location counter for 
machine instructions 



ILOOIU 



None 



+- 



Assigns offsets to labels 



IL0019 



+■ 



COMRTN, FINEQl, NEXTSL 



Determines code for instructions 
which refer to labels 



IL0020 



FINEQl 



■+- 



+- 



Initialize location counter at 
start of procedure 



ILOOIO 



None 



4- 



Stores size of procedure for 
machine instructions 



ILOOll 



None 



4- 



+- 



Reduces number of MVC instructions 



IL0027 



4- 



OFFSET, OSMRTN 



Determines offset from a given 
dictionary reference 



OFFSET 



None 



Table TJl. Phase TJ Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



4- 



COMRTN 

FINEQl 

ILOOOO 

IL0003 

ILOOIO 

ILOOll 

IL0012 

IL0014 

IL0019 

IL0020 

IL002U 

IL0027 

ILlOOl 

ILllOl 

NEXTSL 

OFFSET (TK) 

OPTIMA 

OSMRTN 



Determines whether further optimization is possible. 

Locates label nuiriber table entries. 

Controls phase. 

Entry point to scan loop from initialization. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure 

Processes machine instructions, etc. 

Maintains location counter for machine instructions. 

Assigns offsets to labels. 

Determdnes code for instructions which refer to labels. 

Gets pseudo-code item length and updates text pointer. 

Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero, 

Restores content of containing procedure. 

Looks for equivalent statement labels. 

Determdnes offset from a given dictionary reference. 

Scans text. 

Scans ahead for literal offsets. 
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Table TO. Phase TO Final Asserr.bly External Symbol Dictionary 
r 



^ y 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Constructs first six standard PJSD 
entries 



LG40i 



F:OVL, NAME, ERROR 



+ - 



Constructs entries for external 
procedure labels 



LGOOl 



MOVL, ERROR 



•+- 



+ - 



Constructs PR type entries for each 
block and procedure 



LG030 



MOVE, NAIv.E 



■ + ■ 



4- 



Constructs entries for external 
variables and external entry names 



LG050 



MOVE, ERROR 



Constructs entries for controlled 
variables and task names 



LG090 



MOVE, NAME, ERROR 



■ + 



Constructs entries for Library 
conversion modules 

L . . 



IL0200 



1 HE INC 



Table TOl. Phase TO Routine/Subroutine Directory 



J. . ^. 

I ROUTINE/SUBROUTINE I 



FUNCTION 



I" 



-+- 



ERROR 

LGOOl 

LG030 

LG050 

LG0 55 

LG08 

LG0 85 

LG090 

LG093 

LG4 01 

MOVE 

NAME 

IHEINC (TQ) 



Truncates over-length external identifier, generates error message. 

Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 

Processes ON-conditions and external variables. 

Processes external entry names. 

Processes FILE constants. 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 

Generates names for pseudo-registers. 

Constructs a string of Library module names. 
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Table TT. Phase TT Final Assembly Pass 2 

r T T 

Main Processing 
Statement or Operation Type 



+- 



Routine 



+- 



Subroutines Used 



Scans text 



IL0002 



None 



Generates text for RR instructions 



IL0012 



GENTXT 



+■ 



Generates Text for RX non-branch 
instructions LM, STM, and SI Types 



IL0013 



EOERTN, GENTXT, OFFSET 



+- 



Generates text for shift instruc- 
tions 



IL0027 



GENTXT 



+- 



+- 



Generates Text for SS instructions 



IL0014 



+■ 



EOBRTN, GENTXT, OFFSET 



Sets up trace information and num- 
bers compiler labels 



IL0019 



GENTXT 



+ ■ 



Generates text for branch and load 
address instructions 



IL0020 



FINLQl, GENTXT, OFFSET 



Initializes location counter at 
start of procedure 



ILOOIO 



PUNCHT 



Resumes containing procedure at end 
of procedure 



ILOOll 



PUNCHT 



4 



Moves Text into card image 



GENTXT 



PUNCHT 



■ + 



Punches cards ensuring that RLD 
cards follow related TXT card 



PUNCHT 



CARDOU 



■ + 



Generates text for compiler subrou- 
tine 



INCLUD 



GENTXT 
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Table TTl . Phase TT Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



CARDOU 
EOBRTN 
FINEQl 
G£NTXT 
IL0002 
IL0003 
ILOOIO 
ILOOll 
IL0012 
IL0013 

IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 

PUNCHT 



Directs card image to load file or punch file. 

Chains to next input text block. 

Locates label number table entries. 

Moves text into card image. 

Scans text. 

Entry point to scan from initialization rou-cines. 

Initialized location counter at start of procedure. 

Resumes containing procedure at end of procedure. 

Generates text for RR instructions. 

Generates text for RX non-branch branch instructions, LM, ST^', and 
SI type. 

Generates text for SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 

End-of-block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary ref- 
erence. 

Punches cards ensuring that RLD cards follow related TXl card. 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 
r 



T T 

Main Processing 
Routine 

+■ 



Statement or Operation Type 



Subroutines Used 



Scans STATIC chain to beginning of 
external section 



UAOOl 



UA200, UA220, UA230 



+ ■ 



Initializes scalar variables 



UA200 



TXT^;ov 



Initializes BCD for label 



UA220 



■+■ 



RLDKOV, TXTMOV 



Initializes DED for temporary 



UA230 



TXTMOV 



+- 



I- 



Initializes address constants. 



UAOIO 



■+- 



■+- 



UA401, UA403, UAUOU, UAU05, UA406 | 



Initializes symbol table entries 



UA0 8 



RLD^jOV, TXTMOV 



4- 



Initializes address slots for 
external variables 



UA403 



RLDMOV, TXTMOV 



■+- 



Initializes address slots for func- 
tions and programmer-defined ON- 
condition names 



UA401 



RLDMOV, TXTMOV 



Initializes address slots for label 
constants 



UA404 



RLDMOV, TXTMOV 



4- 



Initializes address slots for entry 
labels 



UA405 



RLDMOV, TXTMOV 



4- 



Initializes file attribute entries 
and files 



UAU06 



RLDKOV, TXTMOV 



4- 



Initializes constants pool 



UAOIU 



RLDMOV, TXTMOV 



4- 



Initializes dope vector skeletons 



UA021 



TXTMOV 



Initializes argument lists 



UA025 



RLDMOV, TXTMOV 
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Table UAl . Phase UA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



■+- 



OUTPUT (UB) 
RLDMOV (UB) 
TXTMOV (UB) 
UAOOOO 
UAOOl 

UA0015 
UAOIO 
UA013 

UAOm (UC) 
UA0 21 

UA0215 (UC) 
UA025 
UA03 3 
UA0 8 (UC) 
UAIOO (UC) 
UAIOOA 
UA2 00 

UA220 (UC) 
UA225 (UC) 
UA230 (UC) 
UA4 01 

UA4 03 
UA404 
UA4 05 
UA4 06 

UA4 07 

UCINIT (UC) 
UCUPDT (UC) 
UC0080 (UC) 
TIDY (UC) 



Moves card images to punch and/or load file. 

Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 

Entry point from compiler control. 

Scans STATIC chain to start of external section, to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Initializes address constants. 

Return point for branches taken in second scan. 

Initializes constants pool. 

Initializes dope vector skeletons. 

Produces text for dope vector skeleton. 

Initializes argument lists. 

Return point for branches taken in last scan. 

Initializes symbol table entries. 

Initializes one-word CSECT 'IHEMAIN'. 

Exit from UA to compiler control and UD. 

Initializes scalar variables. 

Initializes BCD for label. 

Entry to label routines for label variable ECDs. 

Initializes DED and FED for temporary. 

Initializes address slots for functions and programmer-defined ON- 
condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 
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•Table UD. Pha^e UD Final Asaeinbly Initial Values, Pass 2 
r 



.^ y. 

[Main Processing | 
I Routine | 

4- 



Statement or Operation Type 



Subroutines Used 



I 

I AUTO 

I 

I DAT, LAB, STRUG 
.| 

|TXT^;OV(UB) ,RLD^!OV(UB) 



Scans STATIC DSA chain 



Al 



■+- 



Scans STATIC DSA's AUTOMATIC chain jAUTO 



•+- 



Initializes dope vectors for data |DATLAB 
items and label variables j 

(unstructured) | 

|. 1. 



Initializes dope vectors for 
structures 



STRUC 



I TXTF^OV ( UB ) , TLD^JOV ( UB ) 



Table UDl. Phase UD Routine/Subroutine Directory 



P ^. 

I Routine/Subroutine | 



Function 



f- 



■+- 



Al 

AUTO 

DATLAB 

STRUC 

UDOOO 

UDEND 



Scans STATIC DSA chain. 

Scans STATIC DSAs AUTOMATIC chain. 

Initializes dope vectors for data irems and label; 

Initializes structure dope vectors. 

Entry point 

Releases control. 
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Table UE. Phase UE- Final Assembly Initial Values, Pass 

P . 



T T 

Main Processing 
Routine 



Statement or Operation Type 



+- 



+- 



Subroutines Used 



Scans STATIC chain to oeginning of 
external section 



UAOOl 



UA20C, UA220, UA230 



+ ■ 



+ - 



Initializes scalar variables 



UA200 



TXT^OV (UE) 



+- 



+- 



Scans STATIC chain to initialize 
internal dope vectors 



UA003 



UA300, UA320, UA3U0, UA360, UA365 



+■ 



+ ■ 



Initiali2:es dope vectors for inter- 
nal strings 



UA300 



RLDhOV (UB), TXTMOV (UE) 



+- 



+- 



Initializes dope vectors for inter- 
nal data arrays 



UA320 



RLDKOV (UB), TXIMOV (U£) 



f- 



+ - 



Initializes dope vectors for arrays 
of varying strings 



UA34 



TXTMOV (UB), UCUPDT (UC) 



4- 



+- 



Initializes dope vectors for inter- 
nal label arrays 



UA3 6 



RLD^OV (UB), TXTMOV (UE) 



IniT:ializes dope vectors for inter- 
nal structures 



UA365 



UA300, UA320, UA360 



h- 



Initializes arravs 



UA03 



RLDKCV (UB), TXTMOV (UE), 
UCINTT (UC) 



1"- 



T- 

UAOUO 



Initializes structures 



TXTl-.OV (UB), UA200, UC0800 (UC), 
TIDY (UC) 



• + 



- + ■ 



Initializes one word CSECT 
"IHEMAIW 



UAIOO 



OUTPUT, RLDMOV, TXTMOV (all in UB) 



■ + 



Initializes CSECT for STATIC 
external variables 



UA1005 



4 



OUTPUT (UB), UA030, UA200, UA300, 
UA320, UA360, UA365, UA401, UA406 



Makes up END card and terminates 
pha s e 



UA120 



OUTPUT (UE) 



I Initializes array variables 

L 



lUCINIT (UC) ITXTMOV (UB) , UC0080 (UC), TIDY (UC)| 

.X J. J 
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I Table UEl. Phase UE Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 



Function 



I- 



-+- 



AREA 

EVENT 

TASK 

UAOOO 

UAOOl 

UA0015 
UA003 

UA021 
UA030 
UA0 31 
UA0 33 
UA0 3 4 
UA04 
UAIOO (UC) 
UA105 
UA120 
UA2 00 
UA207 
UA300 
UA32 
UA3 4 
UA36 
UA365 
UAUOl 

UA4 06 

UA1005 



Initializes AREA variables. 

Initializes EVENT variables. 

Initilizes TASK variables. 

Entry point froiti UA and compiler control. 

Scans STATIC chain to start of external section, to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal vari- 
ables. 

Start of scan for arrays and structures. 

Initializes arrays. 

Produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for aata array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope vectors for internal label arrays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer-defined ON- 
condition names. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Initializes CSECTs for STATIC external variables. 
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Table UF. Phase UF Final Asserrbly Object Listing 

r ' 



^ ^. 

Main Processing] 
Routine 



Statement or Operation Type 



I" 

I Scans Text 



+- 



Subroutines Used 



■+- 



IL0002 



None 



j. _ 

I Lists RR instructions 



4 

I PRINIT, RRRTN 



IL0012 



|. 

I Lists RX non-brancn instructions 



+- 



I 

iBXrlTN, PRINIT, FRNTOU, PRNTVF, 
I SECOND 



IL0013 



^ . 

I Lists SS instructions 



I 

lEOBRTN, PRINIT, PRNTOU, SSRTN 



IL0014 



|. _ 

I Lists shift instruction; 



4 

I PRINIT, PRNTOU, PRNTVF 



IL0026 



^ _ _. 

I Lists LM and STM 



4 

j PRINIT, PRNTOU, PRNTVF, SECOND 



IL0027 



|. _ 

I Lists SI instructions 



+- 



4 

ICHARVF, PRINIT, PRNTOU, PRNTVF 
I SECOND, SSKTN 



IL0028 



K 



+- 



Lists brcinch and load address 
instructions 



IL0020 



IIL0013, NA^.EIT, NAMEQU, PRINIT,, 
I RRRTN 



f 

I Lists labels 



IL0019 



|. 

[Lists procedure names 



+- 



iNAf'jEVF, NEXTEL, NEXTSL, 
IPRNTLC, PRNTOU, PRNTVF, STATKN 



ILOOIO 



INAi^lEVF, NEXTEL, PRNTOU, STATMN 



^ _ 

I Lists ends of procedures 



ILOOll 



j. 

I Scans ahead for literal offsets; 
I inserts second instruction byte 
I into print image 



INAMEVF, NEXTEL, PRNTOU 
■+- 



SECOND 



EOBRTN 



|. 

I Generates listing of text for base 
I offset pair 



■+ 



SSRTN, BXRTN 



lABSOFF, ADDEND, NAKEIT, NAKEQU, 
I PRNTVF 



1- 

I Names generated label number 



■+- 



^ 

I Inserts location counter value, and 
I hexadecimal and mnemonic operation 
I codes in print line 



■+ 



NAMEQU 



IDECINT, FINEQl 



PRINIT 



jPRNTLC 



I- _ 

I Moves variable length item into 
variable field part of print line 



PRNTVF 



I PRNTOU 



I Lists statement numbers 



STATMN 



STATNO 



|. 

I Determines name and offset from 
I dictionary reference 



NAME IT 



IDECINT, HEXINT 



|. 

I Generate listing of compiler 
I subroutine 

L 



■ + 



IL0017 



I PRNTLC , PRNTVF , PRNTOU 
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Table UFl. Phase UF Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



h 



ABSOFF 

ADDEND 

BXRTN/SSRTN 

CHARVF (UG) 

DECINT (UG) 

EOBRTN 

FINEQl 

HEXINT (UG) 

ILOOOO 

IL0002 

IL0003 

ILOOIO (UG) 

ILOOll (UG) 

IL0012 

IL0013 

ILOOm 

IL0015 

IL0016 

IL0017 (UI) 

IL0018 

IL0019 (UG) 

IL0020 

IL0026 

IL0027 

IL0028 

IL0032 

IL1003 (UG) 

IL2005 

NAME IT 

NAMEQU 

NAMEVF (UG) 

NEXTEL (UG) 



Appends literal offsets to operands in variable part of print line. 

Appends signed literal offsets to operands. 

Generate listing of text for base offset pair. 

Places one character in variable field, of print line image. 

Converts binary to externally coded decimal. 

Chains ro next input block. 

Locates label number tacle entries. 

Converts binary to externally coded hexadecimal. 

Entry point from comipiler control. 

Scans text. 

Entry to scan from initialization routines. 

Lists procedure names. 

Lists ends of procedures. 

Lists RR instructions. 

Lists RX non-branch instructions. 

Lists SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine, and compiler subroutine listing. 

Processes com,piler generated label numbers. 

Lists labels. 

Lists branch and load address instructions. 

Lists shift instructions. 

Lists LM and STM. 

Lists SI instructions. 

Processes SS decimal instructions. 

Prints "*PROCEDURE" followed by entry names and statemient num.ber. 

Identifies operands. 

Determines name and offset from dicrionary entry. 

Namies generated label number. 

Places a variable name in the print line. 

Scans dictionary for multiple entry labels. 
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Tcible UFl. Phase UF Routine/Subroutine Directory (cont'd) 

Function 



r T" 

I Routine/Suoroutine | 



h- 



NEXTSL (UG) 

NM0003 (UH) 

PRINIT (UG) 

PRNTLC (UG) 

PRNTOU (UG) 

PRNTVF (UG) 
RRRTN 
SECOND 

STATMN (UG) 

STATNO (UG) 



Scans dictionary for rrultiple statement labels. 

Coitinion return point in naming routine. 

Prints location counter value, hexadecimal, and mnemonic op codes. 

Converts location counter to hexadecimal; places it in print image. 

Prints a line. 

Koves variable length item into variable field part of print line. 

Generates R]^ formiat listing of text. 

Scans ahead for literal offsets; inserts second instruction byte 
into print image. 

Lists statemient numbers. 

Converts statement number to decimal. 
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Table Xh. Phase XA Error Messaqe Editor 



r T T- 

I |Main ProcessingI 

I Statement or Operation Type j Routine | 



Subroutines Used 



I" 



■+- 



Determines whether error messages j XA 
I are to be printed | 

I- ^.___ 

I Scans error message text skeletons |XA8 
I and prints them out j 

L J. 



None 



I 

|XA50, XA70, XA90, XAllO, ZUPL 



Table XAl. Phase XA Routine/Subroutine directory 



r T 

I Routine/Subroutine | 



Function 



h 



XA 

XAO 

XAOl 

XAl 

XA2 

XAM 

XA7 

XA8 

XA9 (XE) 

XA12A 

XA30 (XB) 

XA32 (XB) 

XA3 5 (XE) 

XA4 (XB) 

XA50 (XB) 

XA70 (XB) 

XA9 (XB) 

XAllO (XB) 
ZUPL 



Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and m.oves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 
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APPENDIX A: GUIDE TO PHASES AND ^iODULi.S 



This appendix relates the logical phas- 
es, physical phases, and irodules contained 
within the physical phases. The compiler 
name is lEMAA. 



PHYSICAL 

PtlASE MOD ULES 

Compiler Control 

AA 

AB 

AC 



AD 

AE 
AF 

AG 

AH 



AI,AJ 

AK 

AL 

AM 
AN 

BX 

JZ 



DESCRIPTION 



Controls running 
compiler 



of 



Performs detailed ini- 
tialization 

Writes records on 
intermediate file 
SYSUT3 

Perform.s interphase 
dumiping as specified in 
the DUMP option 

End of read-in phase 

Controls system, genera- 
tion compiler options 

Closes SYSUT3 for out- 
put, reopens for input 

Format annotated dic- 
tionary dump 

Format annotated text 
dump 

Closing phase of com- 
piler 

Controls extended dic- 
tionary compilation 

Phase marking 

Controls normal dic- 
tionary compilation 

US-character set prep- 
rocessor 



Builds second 
phase directory 



half 



Compile- time Processor Logical Phase 
AS 



AV 



Resident phase for 
compile-time processor 

Initialization phase 
for comipile-time proc- 
essor 



EC BC,BE,BF Initial scan and tran- 
slation phase for 
compile-tirre processor 



BG BG,EI,EJ Final scan and replace- 
ment phase for compile- 
time processor 

BM BM,BN Error message printout 

phase 

BC,BV Contain the diagnostic 
messaces 



BW 



Cleanup phase for 
compile-time processor 



Re ad- 1 n_ Log ical_ Phase 
CA 



CC 



Read-In phase common 
routines 

Read-In phase common 
routines 



CE Keyword tables 

CI CG,CI Read-In pass 1 

CK Keyword tables 

CL CL,CM Read- In pass 2 

CN Keyword tables 

CO CO,CP Read-In pass 3 

CR Keyword tables 

CS CS,CT Read-In pass 4 

CV CV,CW Read-In pass 5 
Dictionary .Lggical_Pha5e 
ED ED 



EG 



EI 



EF,EG 



Initialization, 
subroutine package for 
Declare Pass 2 

Initialization 



EB,EI,EJ First pass over DECLARE 
statements 



EL EK,EL,Ei-'j Second pass over 

DECLARE Statements 



EP 



EP 



Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL state- 
ments 
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£W 



EY 



FA 

FE 

FI 

FK 
FO 

FQ 
FT 
FV 
FX 



EV,EW 
EX,EY,EZ 

FA,FB 

FE , FF 

FI 

FK 
FO , FP 

FQ 

FT,FU 
FV , FW 
FX,FY 



Constructs dictionary 
entries for LIKE attri- 
butes 



Constructs dictionary 
entries for ALLOCATE 
and for explicitly 
qualified based varia- 
bles. 



Checks context 
source text 



of 



Changes BCD to dic- 
tionary references 

Checks validity of dic- 
tionary references 

Rearranges attributes 

Constructs dictionary 
entries for ON- 
conditions 

Checks validity of 
PICTURE Chain 

Dictionary 
house-keeping 

Merges second file 

stateiTients into text 

Processes identifiers 
for cross reference and 
attribute listing 



Pretranslator Logical Phase 



GA 

GB 
GK 

GO 

GP 

GU 

HF 
HK 
7iP 



GA 

GB,GC 
GK 

GO 

GP,GQ,GR 

GU,GV 

HF,HG 
HK,HL 
HP 



Constructs DECLARE and 
OPEN control blocks 

Modifies I/O statements 

Checks parameter match- 
ing 

Preprocessor for second 
check on parameters 

Second check on param- 
eters 

Processes CHECK condi- 
tion statements 



Processes 
assignments 



Processes array assign- 
ments 

Processes items defined 
using iSUBs 



|IA 



IG 



IL 



IM 



IT 



IX 



JD 



IA,IB,IC 



IG 



IL 



1Mj,IN, 
IP,IQ 



IX 



JD 



Stacks operators and 
operands 

Processes array and 
structure arguments and 
built-in functions 

Preprocessor for gener- 
ic functions 

Processes generic func- 
Ic functions 

Processes function tri- 
ples 

POINTER and AREA check- 
ing 



Evaluates 
expressions 



constant 



A ggreg ates Logical Phase 



JI 

|JI 
JK 
JP 



J1,JJ Structure 

pre- preprocessor 

JI,JK,JL Structure preprocessor 

JK,JL,JM Structure processor 

JP Checks DEFINED chains 



Pseudo7-Code_Logical Phase 



LA 
LB 

LD 



LA 
LE,LC 

LD 



LG 


LG,LH 


LR 


hR 


LS 


LS,LT,LU 



Utility scanning phase 

Generates triples to 
initialize AUTOMATIC 
and CONTROLLED scalar 
variables 

Constructs dictionary 
entries for initialized 
STATIC scalar variables 
and arrays 

Expands DC loops 



Initialization 
Phase LS 



tor 



LV 



structure |LW 



LV 



jW 



Converts expression 
triples to pseudo-code 

Provides string han- 
dling facilities 



Initialization 
phase LX 



for 



Translator Logical Phase 



LX 



MB 



MD 



LX,LY 

ME , MC 
MD 



Converts string triples 
to pseudo-code 

Constructs pseudo-code 
for pseudo-variables 

Scans for ADDR func- 
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tions and generates 
code for each 



lOP 



MG 
MI 
Iv]K 
ML 
MM 

MP 
MS 
NA 

NG 

NJ 

NM 

NT 
NU 

OB 

I OD 

I OE 
I 

OG 
OM 



ME 

MG , MH 

MI , MJ 

MK 

ML 

MM , MN , MO 

MP 

MS,MT 

NA 

NG 

NJ,NK 

NM,NN 

NT 
NU,NV 

OB , OC 

OD,OE,OF 
OG,OH 
OM , ON , 00 



Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Constructs pseudo-code 
for in-line functions 

Processes generic entry 
names 

Processes CALL and 
function procedure 
invocations 

Reorders BUY and SELL 
statements 

Constructs pseudo-code 
for subscripts 

Generates pseudo-code 
for branches, RETURN 
triples, etc. 

Generates Library call- 
ing sequences for DELAY 
and DISPLAY statements 

Generates Library call- 
ing sequences for exe- 
cutable RECORD-oriented 
input/output statements 

Generates Library call- 
ing sequences for exe- 
cutable STREAM-oriented 
input/output statements 

Pre-processor for NU 

Generates Library call- 
ing sequences for 
data/format lists 

Processes compiler 
functions and pseudo- 
variables 

Pseudo-code assignment | 



Constructs Pseudo-code 
for assignments 

Generates library 
calling sequences 

Generates pseudo-code 
for dcita type conver- 
sions in-line 



OP,OQ Generates pseudo-code 
for further in-line 
conversions 



OS,OT,OU Converts constants to 
required internal form 



Storage jllocatiQn_Logical Phase 



PA 



PD 



PH 



PL 



PA 



PD 



Pi-i 



PL,PM 



Puts eligible DSA's 
into STATIC 

First STATIC storage 
allocation phase 

Second STATIC storage 
allocation phase 

Constructs symibol 
tables ana DEDs 



pp 


pp 


Sorts AUTOMATIC chain 


PT 


PT,PU,PV 


Allocates AUTOMATIC 
storage 


QF 


WF,QG,QH 


Constructs prologues 


QJ 


QJ,QK,QL 


Allocates DYNAMIC stor- 
age 



Lists lengths of aggre- 
gates 



IQX QX 
I 

Register Alloc ati on Logical Phase 



RA 



RF 



RA,RB,RC Processes addressing 
mechanisms 

RP,RG,RH Allocates physical reg- 
isters 



Final Asseitibly Logical Phase 



TF 


TF 


TJ 


T J , TK 


TO 


TO,TP,TQ 


TT 


TT,TU 


UA 


UA,UB,UC 


UD 


UD , UB , UC 



UE 


UE , UB , UC 


UF 


UF,UG,UH 


UI 


UI,UG,UH 



Assembly first pass 

Optimization 

Produces ESD cards 

Assembly second pass 

Final assembly initial 
values, first pass 

Generates RLD and TXT 
cards to set up dope 
vectors for STATIC DSAs 

Final assembly initial 
values, second pass 

Produces listings 

Completes final assemi- 
bly listings 
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I Error Editor 



XA 



XA 



XA,XB 



Deterrrines whether 
there are diagnostic 
messages to be printed 



Constructs 
phase list 



the third | 



XA,XC 

XF 
XG,YY 



Controls the printing 
of messages 



Message address blocks 

Contain the diagnostic 
messages 
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I COMPILER PHASE-IN-STORAGE MAP |er. Modules On a vertical line may never 

I be in storage together. This rnap rep- 
jresents the 'worst' case, and does not 

I In this phase-in-storage ir.ap, modules on [always reflect the order of loading. 

I a horizontal line may be in storage togeth- 
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AA AB 




AF 








al/anIadac am 


BEBF 






EF 


BX AG 




AS AV 






BC 




BG BI BJ 




AE 
BMBNBOBR 




BWAG 


BS_ 
BT 
BU 
BV 




CACC 








CE CC CI 




CKCLCH 




CNCOCP 




CP 


CSCT 






CVCW 




AL 
EG ED 








EHEI EJ 






EKEL EM 




EVEW 


EZ 




EXEY 




FA FB 






FEFF 






fl. 
FK 
FO FP 




FQ 
FTFU 




FVFW 




FX FY 


FZ 






GA 
CBCC 




CK 







L_AD 



CO 
GPCOCR 



CUCV 



HFHG 



HKHLHM 



HP 
lAIBIC 



IKIL 



IM IN lO 



If. 

IT 
11 

Jijj 

JL JM JI 

JI. 
JZ. 
LA LB LC 



LD 
LGLH 



LS LT LU 



LVLY 



LWLX 



MBMC 



MP 
ME MF 



MCMH 



MIMJ 



MK 

Mk 
MMMNMO 



LVMP 



MSMT 



NANB 



NGNH 



NJ NK 



AD 



LALV 



NMNN 



NT 
NUNV 



OBOC 



OD 
OEOF 



OGOHOI 



OMONOO 



OPOQ 



OSQTOU 



PA PD 



[PH 
PL PM 



PP 

PT PU PV 



QFQGOH 



QJQK 



QU 
OX 
RA RB RC 



RF RC RH 



IL 

TJ TK 



TO TP TO 



TT TU 



UBUCUA 



lUD 
I UEUD 
UFUCUH 



UI 



XAXB 



XC XF 



XC 
XH 
XI 
XJ 
XK 

2^ 
XO 



, AD 

[xAXC 



XP 
XQ 
_)(R. 

2<A 
_>(T 

XU 

>cw 

XX 

YY 



•Figure 7. PL/I Phase-in-Stcrage Map 
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APPENDIX B: RESIDENT TABLES 



There are three resident tables: the 
dictionax-y, the keyword tables, and\ the 
phase directory. The dictionary is resi- 
dent through part of the compilation; the 
formats of the dictionary entries are fully 
described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the con'pilation. 



ORGANIZATION OF KEYWORD TABLES 



The read-in phase is divided into five 
passes containing the iriodules shown in 
Figure 8. 

Modules CA and CO contain routines which 
are corriition to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
CI. The keyword tables are held in separ- 
ate modules (CE, CK, CN, and CR) which mu^t 
each be less than 1,024 bytes (IK) long. 



In this way it is possible to hold in 
storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner. 

For ease of searching and modifying a 
keyword table, it is organized into tv;o 
levels and by keyword length, as shown in 
I Figure 9. 

The KEYwD routine is called by one of 
the statemient scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, CN condition, 
miscellaneous) . It does this by using the 
paramieter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the mieans of 
reaching a cable containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 



r 1 I 

I I I 

I CA I I 

I i I 

L J > Common Routines 





CC 


— 


-J 


1 

1 

1 
J 






































— 


CE 


— 


_j 


— T- 


r- 
1 

r- 
1 


CK 


— 


"1 


-T- 


L- 


CN 


— 


-1 


~T~ 




CR 


— 


-1 

1 

_j 

1 


~T~ 


L- 









CR 


1 
J 






T 

1 




CG 








1 
! 


CL 










CO 










CS 




1 

1 






CV 


1 

1 
1 









— ' 




1 

r- 

l 




— 


„j 









— 


_ 












1 

_J 

-1 
1 




'■- 




1 

J 










1 
1 




CI 








II 
! 


CD^ 










CP 










CT 




1 

1 






CW 


1 

1 
1 




Pass 


1 


--' 




1 


Pass 


2 


-J 




•-- 


Pass 


3 


--' 






Pass 


U 


1 
_j 




L- 


Pass 


1 

5 



• Figure 8. Organization of Read-In Phase 
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r 1 

--^ R(A) 
I- 

r-^ P(B) 

I- 

I R(C) 1- 
f -I 



AL>| 

h 

I 

^- 
I 

L. 



■) First Level 
Directory 

^ 



I B«-> 

H 

I 

H 

I 
.J 



CL> 



Second 
Level 
Direc- 
tory 



•Figure 9. Organization of Keyword Table 

Format of Fi rst Level Directory 

FSTLVL DC AL2(STATID - FSTLVL) 
DC AL2(0NID - FSTLVL) 



F ormat of Secon d Level Directory 



The second level tables contain relative 
addresses, which enable the KEY'WD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 



STATID DC FL2'm' where m is smallest 
length in table 

DC FL2'n' where n is largest 
length in table 

DC AL2 (STLm-STATID) 

DC AL2 (STLn-STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 



Format of Third Level Tables 



The third level tables have a prefix 
byte containing the number of entries in 
this particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replaceirent charac- 
ter (keywords recognised as such are 
replaced ay a single code byte). 



STLm DC FLl'x' where x is number of 
keywords in this table 

DC X' 112315' keyword in internal 
code 

DC X'55' replacement in internal 
code 

DC X' 393839' 

DC X ' 5A ' 



Some keywords are not represented by one 
word (e.g., GO TO, BY NAIVIE, and clearli- , 
the mechanism must be m.odified to cope with 
the second word. This modification is 
achieved by OR-ing a 1-bit into the first 
bit of the first level. The presence or 
absence of this bit is tested by the KEYWD 
routine before the suspected keyword is 
compared. If the bit is absent, the pass 
through the routine is quick, as there is 
no possibility of an extra level search. 
If the bit is present, the keyword must be 
compared after the additional bit has been 
AND-ed out. If the comparison is equal, 
the two bytes following the replacement 
character are used as a relative address to 
reach the next level table. 



Format of Entry Re qui ring_ Additional 
Co mpar isons 



DC X' 9726' GO + X'lOOO' 

DC X' 40' 

DC AL2(N XTLVL-+) Relative address 
of next level table 

The form.at of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 
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PHASE DIRECTORY 



1 abort has occurred 



Because of the nurriber of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 



LIST 



LOAD 



DECK 



1 not wanted 
wanted 



1 not wanted 
wanted 



1 not wanted 
wanted 



The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM_SY3tem/360 

Operating System, Control Frog ram__ Services , 

Form 028-6541. 



EXTREF 



XREF 



1 not wanted 
wanted 



1 not wanted 
wanted 



Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied €mtry in the build 
list are used to construct a 12-byte phase 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is com- 
plete. 

The format of a phase directory entry is 
as follows: 



ATR 



1 not wanted 
wanted 



1 means U- format 
means f -format 
records on input 



1 if track overflow 
is present 



B yte Numbe r Description 

1-2 Phase name 

3 Status byte 

4-5 Concatenation number and 
Library identification 



Severity code 

Severity code 

Severity code 

Severity code 

where 0000=FLAGW 
0001=FLAGE 
010=FLAGS 



- 10 



TTR of first text record; 
where TT is the relative 
track number, and R is the 
block number on that track 

Total amount of storage 
required 



6 CHAR 48 1 not wanted 
wanted 



MACRO 



1 not wanted 
wanted 



11 - 12 



Length of first text record 



SOURCE 1 not wanted 
wanted 



Control Code Word — CCCODE 



CHK 1 not wanted 
wanted 



The format of the control code word 
(CCCODE) , which is four bytes in length, is 
as follows: 



B^rte Bit 
DUMP 



1 wanted 

not wanted 



BCD 1 BCD input 

EBCDIC input 

S0URCE2 1 wanted 

not wanted 



OPT 



1 wanted 

not wanted 
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5 1 AE required 

6 1 program check 

has occurred 

7 1 means first record 

has been read 

STMT 1 not wanted 

wanted 

1 MACDCK 1 not wanted 

wanted 

2 COMP 1 not wanted 

wanted 

3 1 macro phase now 

running 

4 1 batch record found 
batch record not 

found 

5 1 EOF record found 

EOF record not found 

6 not used requirement 

7 NEST 1 wanted 

not wanted 
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APPENDIX C: INTERNAL FORiVATS CF DICTIONARY ENTRI;S 



This appendix describes the foririats of 
dictionary entries during the compilvation 
of a source program. The appendix is 
organized in the following manner: 

1. Dictionary entry code bytes 

2. Dictionary entries for ENTRY points 

3. Code bytes for ENTRY dictionary 
entries 

4. Dictionary entries for DATA, LABEL, 
and STRUCTUx^E items 

5. code Dytes for DATA, LABEL, and STRUC- 
TURE dictionary entries 

6. Uses of the OFFSET 1 and OFFSET 2 
slots in DATA, LABEL, and STRUCTURE 
dictionary entries 

7. Dictionary entries for: 

label constants 

data constants 

formal parameters 

FILE entries 

TASK and EVENT data 

internal library functions 

parameter descriptions 

ON conditions 

PICTURES 

expression evaluation workspace 

dope vector skeletons 

symbol table entrie^s 

AUTOMATIC chain definitions 

DED dictionary entries 

FED dictionary entries 

temporary dope vectors 

BCD entries 

second file statements 

8. Dimension tables 



1. DICTIONARY ENTRY CODE BYTES 



The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic messa- 
ges between phases of the compiler; the 
text describes the operations to be carried 
cut on the elements. 

Each type of element has a charac- 
teristic dictionary entry, which is iden- 
tified by a code occupying the first byte 
of the entry. In general, each type of 



element nas a different code byte, but in 
order to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 

F i rs t_ h a If _ B Y t e 

Bit Bit 

Position Value leaning 

entry has BCD 

1 entry has no BCD 

1* entry is to be chained 
1 entry not to be chained 

2 not a member of structure 
1 member of structure 

3 not dimensioned 
1 dimensioned 

*This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, iteii.s with this bit on are 
added to the storage class chains. 

Second_Half_B}^te 

In the second half byte, the following 
codes have the meanings shown, unless the 
first half byte is X'C: 



X'F' means 
X'V means 
X'E' means 



data variable 
label variable 
structure 



The second and third 
dictionary entry contain t 
bytes, of the entry. If th 
(i.e., the first bit of the 
this length count does not i 
instead, the BCD, which fol 
body of the entry, is prece 
byte containing one less tha 
characters of BCD. 



bytes of every 
he length, in 
e entry has BCD 
entry is zero) , 
nclude the BCD; 
lows the main 
ded by a single 
n the number of 



Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the tacle which have no corresponding 
description are not allocated. 

X'OO* Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 External entry label (entry type 4) 

04 Built-in function, e.g., DATE 

05 Tem.porary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g., SIN 
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07 
08 
09 
OA 
OB 
OC 
OD 
OE 
OF 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
lA 
IB 
IC 
ID 
IE 
IF 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
3A 
3B 
3C 

3D 

3E 
3F 



40 
41 



Label variable 
File constant 



Task identifier 
Event variable 



Data variables (not dimensioned or a 
structure meirber) 



Dimensioned label variable 



Dimensioned task identifier 
Dimensioned event variable 

Dimensioned data variable 



Label variable in structure 



Task identifier in structure 
Event variable in structure 
Structure item 
Data variable in structure 



Dimensioned and structured label 
variable 



Dimensioned task identifier in 

structure 

Dimensioned event variable in 

structure 

Dimensioned structure item 

Dimensioned and structured data 

variable 

Formal parameter type 1 



42 
43 
44 
45 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 

80 

81 

82 
83 
84 
85 
86 
87 



89 

8A 
8B 
8C 
8D 
8E 
8F 



90 
91 
92 
93 
94 
95 
96 
97 

98 
99 
9A 
9E 
9C 

9D 

9E 
9F 



AO 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 



ON CONDITION entry 



ENTRY type 1 — from a PROCEDURE 

statement 

BEGIN statemient entries — entry 

type 1 

ENTRY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File form.al parameter or file 

temporary 



Task identifier formal parameter 
Event variable formal parameter 

Data variable formal paraireter or 
temporary 

Invocation count dictionary entry 



Dimensioned variable formal parameter 

or temporary 

File attribute entry 



Dimensioned task identifier formal 

paraitieter 

Dimensioned event variable formial 

parameter 

Dimensioned data variable formal 
parameter or dimensioned temiporary 



Structured label variable temiporary 
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AB 
AC 

AD 
AE 

AF 

EO 
Bl 
B2 
B3 
BU 
B5 
86 
B7 

B8 
B9 
BA 
BB 
BC 

BD 

BE 

BF 



CO 
CI 
C2 

C3 
C4 
C5 
C6 
C7 
C8 

C9 
CA 
CB 
CC 

CD 
CE 

CF 



Structured task identifier temporary 

Structured event variable temporary 

Temporary or formal parameter 

structure 

Structured data variable temporary 



Dimiensioned and structured label 
variable temporary 



Dimensioned and structured task 
identifier temporary 
Dimensioned and structured event 
variable temporary 
Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 

String dope vector for temporary 

DED2 entry 

Internal library function, e.g., 

conversion routines 

Compiler label 

Prefix ON list item 

Parameter lists 

Dope vector skeletons 

Symbol table entry or DED entry 

Error message, table entry, workspace 

requirement, STATIC DSA, etc. 

Record dope vector (RDV) entry 

Workspace requirement entry 

Select a me^mber from a generic family 

AUTOMATIC chain delimiter or Dope 

Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionary 

block 



2. DICTIONARY ENTRIES FOR ENTRY POINTS 



Entry type 1 for PROCEDURE, BEGIN, and 
ENTRY statements 



The format of an entry for a PROCEDURE 
statement is as follows: 



i-7 



10-11 



12-13 



lU-15 I 
16-17 > 
18-19 I 
J 

20-21 



22-23 



24-25 



26-28 



29-31 



32-34 



35-37 



38-40 



41-42 



Byte Numiber 
1 
2-3 



De scr iption 
code byte X'80' 
Length 



Level 

Count 

Dictionary reference to the 
entry type 1 of the contain- 
ing block 

Dictionary reference of the 
dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 

Dictionary reference to the 
entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 



The start of the chain 
all AUTOMATIC variables 



of 



Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 



Dictionary 
CHECK list 



reference 



of 



Dictionary reference of 
NOCriECK list 

Dictionary reference of the 
first symbol table entry for 
this block 



Size of 
block 



the DSA for this 



Offset of the eight words in 
the DSA used for addressing 
the DSA 

Offset of the storage used 
for the parameter list nec- 
essary in an ALLOCATE- FREE 
statement 

Offset of the two-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 

Offset of the four-byte slot 
which will contain tne 
address of the first approx- 
imation of the target field 
(the address of the implied 
parameter) 

Dictionary reference of the 
entry type 1 of the first 
ENTRY statement of the pro- 
cedure. The entry type 1 
for PROCEDURE and ENTkY 
statements of any one proce- 
dure form a circular chain. 
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If there are no ENTRi: state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
procedure's entry type 1, 
i.e., of the entry in which 
the slot occurs 



5 
6-7 



Level 



Count 



Dictionary reference of the 
next member in the circular 
PROCEDURE-ENTPY chain 



4 3 OPTIONS code byte 

44-57 Eight 2-byte dictionary ref- 
erences to dictionary 
entries for prefix options. 
Only those prefix options 
which are changed within the 
procedure have a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
this Appendix) 

60 Options change Dyte. This 
byte contains a one bit for 
each prefix option which is 
changed witiiin the proce- 
dure. Its format is identi- 
cal with the norm.al options 
byte 

61-63 Offset of workspace used in 
BUY statement 

6 4 Optimization byte 

6 5 2*n where n is the number of 
parameters at this entry 
point 

66 onwards N dictionary references of 
formal parameter type 1 
entries 



The formiat of an entr 
statement is similar to the 
first 34 bytes. The initi 
X'81', and the dictionary 
bytes 8 and 9 is that of the 
the original BEGIN stateme 
there was no statement la 
statement number occupies 
presence of a statement numb 
label is indicated by a 
position 35. This is se 
statement number, or to SL f 
label. Bytes 36-56 conta 



j bytes 44-64 in a PROCEDURE e 



y for a BEGIN 

above for the 

al code byte is 

reference in 

first label on 
nt, if any. If 
bel, then the 
this slot. The 
er or statement 

flag byte in 
t to oN for a 
or a statement 
in the same as 
ntry type 1, 



The format for the entry type 1 derived 
from an ENTRY statement is as follows: 



Byte Number 
1 
2-3 



Description 
Code byte X'82' 
Length 



!-9 



10-12 



13 



Dictionary reference of the 
dictionary entry for the 
first label on the original 
ENTRY statement 

The offset of the apparent 
entry point 

2*n where n is the number of 
parameters 



14 onwards n dictionary references to 
the formal parameter type 1 
entries 

The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 

Byte Number Description 

I Code byte X'Ol' 
2-3 Length 

4-5 Hash chain (STA1IC chain) 
6-8 Pointer to transfer vector 
9-10 Statement number 

II Other 1 code byte. (See 
"First code byte - other 1" 
in this Appendix.) The last 
bit will always be set to 
one, unless the label is the 
last label for a particular 
statement, in which case the 
last bit will be set to 
zero. 

12-13 Pointer to entry type 2 

14-16 Spare bytes for final assem- 
bly. The pseudo-code phase 
dealing with RETUkN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 
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17 



Block level 



Entry Tyge 3 



18 



19 



Block count 



Count of containina Dlock 



BCD length -1 
BCD of label 



20 
21 

Entry Type 2 



An entry type 2 describes the data 
attributes of an entry point. The foruiat 
is as follows: 



Description 

Code byte X'85' . 

Length. 

Dictionary reference of 
entry type 3 

Offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry iDelongs. 
This will be zero if the 
item is not a string. 

DATA byte (see "DATA Byte" 
in this Appendix) . 

Data inforiTiation, which is: 




6-8 



10-12 



13-14 



1. with nurr.eric 
precision and 
left justified 

2. for strings of 
iinuir length, 
version of 
length in the 
most bytes o 
information 

3. for strings of 
length, the 
erence of a s 
statement c 
expression for 
length 



data, the 
scaling, 

fixed max- 
the binary 

the string 
two left- 

f the data 

adjustable 

text ref- 

econd file 

iving the 

the string 



Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary ref- 
erence of a DED entry, the 
picture table reference 
being moved into this refer- 
ence if necessary 



Entry type 3 dictionary entries are 
constructed either froir an explicit dec- 
laration or from implicit and default 
rules. Their format is as follows: 



^yte_N umber 
1 

2-3 
4-5 

6-7 



8-10 



11 



12-13 



14-15 



16-17 



18-19 



Description 

Code byte X'84' 

Length of entry. 

Dictionary reference of 
entry type 1 of PROCEDURE or 
ENTRY statement. 

Dictionary reference of 
entry type 2. This des- 
cribes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 

The offset in the DSA of the 
containing block of the 
first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 

The entry code byte. (See 
"Entry Code Eyte" in this 
Appendix. ) 

The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block. 



Switch byt 
code phas 
REl URN ( e 
into thes 
pattern o 
will signi 
the proce 
laoel assc 
particular 
Phase QF 
create MVI 



es. The pseudo- 

e dealing with 

xpression) inserts 

e bytes the bit 

f the code which 

fy that entry to 

dure was by the 

ciated with this 

entry type 3. 

will use this to 

instructions . 



Dictionary reference of a 
SETS list. This will be 
zero if the attribute SETS 
was not specified. The for- 
mat of a SETS list is given 
at the end of this section. 

Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 
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20 



21 



Status byte. This byte will 
contain X'OO' or X'FO'. 
X'OO' indicates that the 
entry was constructed froir 
an ENTRY declaration which 
had parameter descriptions. 
X'FO' indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 



2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 



22 onwards If the status byte is X'OO' 
there are n two-byte ref- 
erences of parameter des- 
criptions. A parameter des- 
cription is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular par- 
ameter is not described, 
i.e. if there are two adja- 
cent commas in the ENTRY 
attribute, then the dic- 
tionary reference is zero. 
When the status byte is 
X'FO' then an entry type 3 
is only 2 3 bytes long. 



22+2n- 
23 + 2n 



DECLARE statement number 



SETS List Format 



Byte Number 
1 
2-3 

4-5 

6-5+2*nl 
6+2*nl 



7+2*nl 
onwards 



Descr iption 

Code byte X'C8' 

Overall length of original 
BCD entry 

2*nl where nl is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2+nl+l. 

Dictionary references of the 
identifiers in the SETS 
list. 

n2, the number of para- 
meters in the SETS list. 

n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 



Entry Type U 



Entry type 4 dictionary entries describe 
external entry points. Their format is as 
follows: 



By te N umber 
1 

2-3 
4-5 

6-8 

9-11 



12-13 



14 



15 



16-18 



19-20 



21-22 



23 



Code byte X'03' 

Length 

Hash chain, later used 
as the STATIC chain 

Offset of the load constant 
in STATIC 

Offset in the DSA of the 
declaration block of the 
storage for the first 
approximation of the value 
returned. 

The dictionary reference of 
an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 
chain of the declaring 
block. 

The ENTRY byte. (See "ENTRY 
Byte" in this Appendix.) 

The DATA byte. (See "DATA 
Byte" in this Appendix.) 

Data information which is: 

a) with numeric data, tne 
precision and scaling, 
left justified 

b) for strings of fixed max- 
imum length, the binaxy 
version of the string 
length in the two left- 
most bytes of the data 
information 

c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 
length 

Picture table address if 
required. 

Dictionary reference of a 
SETS list 

Status byte. If this byte is 

X'OO' the meaning is the 

same as the status byte in 

an entry type 3. If tne 

byte is X'FF' it is implied 
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that no parameters were des-^ 
cribed 

2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 

n dictionary references to 
parameter descriptions as in 
an entry type 3 

Level 

Count 

BCD length-1 

BCD of identifier 



24 

25 

25+2*n 

26+2*n 

27+2+n 

28+2*n 
onwards 

Entry Type 5 



Entry type 5 dictionary entries describe 
the entry points which are formal paramet- 
ers. They have the same format as entry 
type 4 except that: 

Byte 1 is X'83' 

Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 

Bytes 6 to 8 contain the offset in the 

DSA of the declaring block of the 

address slot associated with a formal 
parameter 

No BCD is contained in the entry 



GENERIC Entry Point 



The format for a GENERIC entry point is 
as follows: 



Byte Number 
1 

2-3 
4-5 
6-8 
9-10 
11 

12-ll+2n 



Descrigition 

Code byte X'02' 

Length 

Hash chain 

Offset 1 Slot 

DECLARE statement number 

2n, where n is the number 
of two-byte addresses fol- 
lowing 

Pointers to entry type 4 

or 5, ENTRY labels, or BUIL- 



12 + 2n 

13 + 2n 

14 + 2n 

15 + 2n 

onwards 



TIN entries. Ihese entries 
are made when an identifier 
is given the attribute GEN- 
ERIC. The pointers are ro 
the entries whicli contain 
specifications of the var- 
ious possible attributes 

Level 

Count 

BCD length-1 

BCD 



11: 



CODE BYTES FOR ENTRY DICTIONARY ENTRIES 



ENTRY Code Byte 



This code byte is used in ENTRY type 3, 
4, and 5 dictionary entries. The format is 
as follows : 



Bit Number 


Description 


1 


IRREDUCIBLE 


2 


REDUCIBLE 


3 


USES 


4 


SETS 


5 


SECONDARY 


6 


RECURSIVE 


7 


Has data attribute 


8 


Not used 



Options_Code Byte 



This code is used in entry type 1 
dictionary entries for PROCEDURE state- 
ments. The format is as follows: 



Bit. 


_Numt 


3er 


DescrijDtion 




1 




REENTRANT 




2 




ON Block 




3 




MAIN 




4 




TASK 




5 




RECURSIVE 
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6 OPTIONS 

7 Contains RETURN (expression) 
statement 

8 ENTRY name is passed as 
argument 



Optimiz ati on Byte 

This code byte is used in entry type 1 
dictionary entries. 

Form.at of the Optimzation Byte: 

B it Number Description 

1 Not eliaible for DSA in 
library workspace. 

2 Eligible for DSA in STATIC 
storage. 



Needs invocation count. 
Needs current file slot. 
Contains asynchronous CALL. 
Not used. 
Not used. 
Not used. 



ji_. DICTIONARY_ENTRIES_FOR_pATAj__LABELj__AND 

STRUCTURE ITEMS 



Label Variables - Obtained from DECLAFlE 



Statement 



Byte Number 



D esc ription 



Code 
X'lV , 
X'97' , 
last f 

the i 

ameter 

or ENT 

case, 

contai 

erence 

formal 

entry. 

cases , 

tially 

chain. 

the d 

will 



byte 

X'27' 

X'A7 

our ca 

tern oc 

list 
RY sta 
bytes 
n the 
of t 
par 
In 

byte 

con 

Afte 

iction 

De r 



may be X'07', 
, X'37', X'87', 
', X'B7'. The 
ses apply when 
curred in a par- 
in a PROCEDURE 
tement. In this 
4 and 5 will 
dictionary ref- 
he corresponding 
am:eter type 1 
the first tour 
s 4 and 5 ini- 
rain the hash 
r the scan of 
ary, this slot 
e-used to formi 



2-3 
4-5 



6-8 

9-10 
11 

12 

13 



14 



15 



another chain, e.g., AUTO- 
MATIC or STATIC chain 

Length 

Initially contains the hash 
chain. After the dictionary 
scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 

Offset inserted by storage 
allocation phase (as fcr a 
data item) 

DECLARE statement num.ber 

'Other 1' code Dyte (See 
"First code Byte - Other 1" 
in this Appendix.) 

'Variable' code byte (See 
"Variable Byte" in this 
Appendix) 

'Other 2' code byte (See 
'Second Code Byte - Other 2" 
in this Appendix.) 

'Orher 3' code byte (See 
"Third Code Byte - Other 3" 
in this Appendix.) 

'Other 4' cede byte (See 
"Fourth Code Eyte - Other 4" 
in this Appendix.) 



16 onwards Content determined by varia- 
ble code byte. 

After variable information 
2 Dytes Symbol slot 
1 Dyte Level 
1 byte Count 
1 byte BCD length-1 

BCD 

With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 

Pi£i:i2B§£Y_^Di:£ieS_l2£_SSta_I terns 

The form:at is as follows: 

Byte Number Description 

1 Code byte may be X'OF', 

X'lF', X'2F', X'3F', X'RF', 
X'9F', X'AF', or X'EF'. Ihe 
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9-10 



last four c 
the iterr. occu 
aineter list 
or ENTRY stat 
case, bytes 
contain the 
erence of the 
foriTial parair 
entry. In 
cases, bytes 
tialiy conta 
chain. Afte 
the diction 
will be re 
another chain 
MATIC or SI AT 



ases apply when 
rred in a par- 
in a PROCEDURE 
ernent. In this 
4 and 5 will 
dictionary ref- 
corres ponding 
eter typte 1 
the first four 
4 and 5 ini- 
in the hash 
r the scan of 
ary this slot 
-used to forrt' 
, e.g., AUTO- 
IC chain 



2-3 


Length 


4-5 


See above 


6-8 


Offset. 



ee "Format of 
Variable Information" in 
this Appendix 

DECLARE statement number. 
If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement numcer 
assigned to the DECLARjE 
statem.ent from which the 
variable was obtained. 



1 byte 
1 byte 
1 byte 



the 

If t 

the 

slot 

entr 

pict 

will 

tabl 

If t 

the 

SYI^iB 

will 

addr 



picture t 
he DED bi 

SYMBOL b 
points 
y. If th 
ure, the 
contain 
e address 
he SYhEOL 

slot wil 
OL entry. 

contain 
ess, if s 



able entry 

t is on and 

it off, this 

at a DLD 

e iten! has a 

DED entry 

the picture 

bit is on, 

1 point at a 

This again 

the picture 

pecif ied 



Variable inf crnation. The 
contents of these bytes are 
determined by the variable 
code byte. See "Format of 
Variable Information" in 
this Appendix 



Level 



Count 



BCD length-1 



BCD 



11-16 



17-19 



20-21 



Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in this 
Appendix for a description 
of these bytes.) 

Data information, which is: 



1. with numeric 
precision and 
left justified 

2. for strings of 
imumi length, 
version of 
length in the 
most bytes o 
information 

3. for strings of 
length, the 
erence of a s 
statement g 
expression for 
length 



data, the 
scaling, 

fixed max- 
the binary 

the string 
two left- 

f the data 

adjustable 

text ref- 

econd file 

iving the 

the string 



Symbol slot, containing 
either zero, or one of the 
following : 

1. If the SYMBOL and DED 
bits are not on, and the 
data iterr has a picture, 
these bytes contain the 
dictionary reference of 



^§LJ2£_^I5^_ll-il]!2£_Structure_Entries 



These entries do not. include base ele- 
ments, i.e., they do not have any data 
attributes or LABEL. Their format is: 



byte Number 
1 



2-3 
4-5 



J2®§££i2tion 

Code byte may 
X'3E', X'AE', o 
last two indica 
is no BCD at 
the identifier 
parameter list 
DURE or ENTRY 
bytes 4-5 con 
tionary refer 
formal parame 
entry. In the 
first two code 
4-5 of the ent 
contain the 
This is later 
Phase FT 



be X'2E', 

r X'BE' . The 

te that there 

tached. When 

occurs in the 

of a PROCE- 

statement , 

tain the dic- 

ence of the 

ter type 1 

case of the 

bytes, bytes 

ry initially 

hash chain. 

modified iDy 



Length 

See byte number 1 
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6-8 



These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 

1. For structures which are 
parameters, or are dynarn- 
ically defined, the off- 
set froir, the start of the 
major structures dope 

vector or the minor 9-10 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 

the address slot which 11-15 
will point at the struc- 
ture dope vector 

3. For CONTROLLED struc- 
tures, only that speci- 16 
fied for minor structures 

in 1 , above 

4. For structures in STA- 
TIC EXTERNAL the contents 
depertd on the setting of 
the "dope vector 
required" bit in the 
"other 3" code byte. If 
this bit is off and the 
item is a major struc- | 
ture, the slot contains 

the offset from the start 1 byte 

of STATIC of the slot 

which will contain the 1 byte 

address of the first byte 

of the structure. If the 1 byte 

dope vector bit is on, 

the slot contains the 



offset from the start of 
STATIC of the address 
slot which will point at 
the structure dope vec- 
tor. The offset slot is 
not used in either of the 
above cases for minor 
structures 



DECLARE number, i.e. the 
statement number of the 
DECLARE statement which pro- 
duced the structure 

Five code bytes. These are: 
other 1, variable, other 2, 
other 3, and other 4 

Variable information. The 
content is determined by the 
variable code byte, and will 
always include the informa- 
tion required for structure 
miembers. The formiat is des- 
cribed under "Format of 
Variable Informiation" in 
this Appendix 

After variable information: 

Level 

Count 

BCD length-1 

BCD 
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5_. CODE BYTES FOR DATA, LABEL, AND STRUCTUkL DICTIONARY ENTRIES 



The First Co de B yte - Other 1 



T- 



Bit 
No. 


1 

Description 
L _ 






i Set By 
. 1 


1 


r 

Symbol or requires load constant if 
label constant 


T 

1 Phase EL, FT, or 
1 NU 


2 


Defined on 






1 Phase EL 


3 


Mentioned in ChECK list 






1 Phase FO 


4 


Needs DVD 






1 Various 


5 


Last member in structure 






1 Phases FL or EW 


6 


Variable dimensions 






1 Phase EL 


7 


* dimensions 






1 Phases EL and FT 


8 


* string length for data 


item 




1 Phases EL ^nd FT 




— More labels follow for 
constant 


a label 


1 Phase EG 




Major Structure - no member 

the structure has a dimension 
length attribute which is not 


of 
or 
* 


1 Phase iY 



L X X J 



The Second Code Byte - Other 2 



Bit 
No. 


1 


Description | 
_ ._ _. _ _ X 


Set by 


1 


1 


t 

Dynamically defined | 


Phase EL 


2 




CONTROLLED major structure with | 
varying strings | 


Phase EY 


3 




NORMAL = 0, ABNORMAL = 1 | 


Phases EI and FT 


4 




Reserved | 




5 




Formal Parameter j 


Phase EI 


6 




INTERNAL = 0, EXTERNAL = 1 | 


Phase EI 


7 

and 




00 = AUTOMATIC or DEFINED or simple | 
parameter | 


Phase EL 






01 = STATIC 1 


Phase EL 


8 




11 = CONTROLLED | 


Phase EL 



L X.^ . X J 
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The Third Code Byte - Other 3 



T T 1 



Bit 
No. 


Description 

L _ 


L 


Set Dy 


1 


r — 
Needs dope vector 


r 

Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED storage; 
Phase NU when item appears 
in an argument list 


2 


Needs DED 


Phase 


NU 


3 


Needs no storage for the iten 
itself 


Phase 


GP 


4 


Correspondence defined 


Phase 


FV 


5 


Chameleon 


Phase 


GP 


6 


Sign bit for first offset 


Phase 
Phase 


PH for STATIC and 
PT for AUTOMATIC 


7 


Indication of the state of 
the value in the first offset 

= rubbish 

1 = good value 


Phase 
Phase 


PH for STATIC and 
PT for AUTOMATIC 


8 


As above but for second 
address slot 


Phase 


PH 



L X X J 



The Fourth Code Byte - Other U 



Bit 
No. 


Description 

L ._ _. 


L 


Set by 


1 


r — — — 

A constant has oeen produced 
for this structure or array 


r 

Phase 


JK 


2 

and 
3 


00 = Not temporary 

01 = Temporary type 2 

10 = Temporary not sold 

11 = COBOL temporary 


Phase GP, HF, HK, 
IM, or LB 


4 


Member of defined structure 


Phase 


FV 


5 


Packed = Aligned = 1 


Phase 


EL 


6 


i^ajor structure 


Phase 


EL 


7 


No dope vector initialization 


Phase 


GP 


8 


A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required. For 
COBOL temporaries this bit 
means RDV required 


Phase 


OE 



L ± ± J 
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Description 



Variable^ Byt e 



^ y 

Bit I 

No. I 
|. + ^ 

1 I Second address slot 

1 

2 I Dimensioned 

I 

3 I ['■iernber of structure 

I 

4 j Value list for label variables or 
I POS for defined iteir.s 

1 

5 I Initial value if not a^ structure 
I or LIKE if a structure 

I 

6 I EXTERNAL slot 

I 

7 1 Defined slot 

I 

8 I CONTROLLED froii; ALLOCATE statement 

L ± J 

For a detailed explanation of the signi- 
ficance of these bits and a description of 
the extra slots associated with them, see 
"Format of Variable Infcrnation" in this 
Appendix. 



Data_BYte 



BIT 



1 I 
I 



CAD or 

NUMERIC 
FIELD 



1 I POINTER/ 
I OFFSET + 
I 



Sterling 

NCN 
STERLING 



Long 

Short/ 

OFFSET 



Cad. 

Numeric 
Field 



Binary 
Decimal 



Float 

Fixed 



Complex 
Real 



■+■ 



STRINGS 



I Adjustable | Aligned 
I Length | 
I String j Packed 



Varying 



No 

Picture 

Picture 



Char 



Bit 



AREA 
VARI- 
ABLE* 



Not 
Used 



I *AREA, POINTER, and OFFSET data byte settings are: 

I AREA: X'02' superimposed on the non-pictured CHAR string data byte entry 

I POINTER: X'40' superimposed on the FIXED BIN data byte entry 



OFFSET 



X'50' superimposed on the FIXED BIN data byte entry 



6. FORMAT OF VARIABLE INFORMATION 



Data items, labels^ and structures 
require pointers to various tables if they 
have certain attributes; for example, if 
they are dimensioned or defined on. a base. 
Space will be left for informiation only if 
the attribute is present. This leads to an 
addressing problem of how to find the 



position of the information when the pre- 
sence of other attributes alter its 
address . 

The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The pre- 
sence of a bit in this byte indicates the 
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presence of further inf orir:ation. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 

The information produced by the presence 
of the following bits in the variaole byte 
is as follows: 

Bit nu mber 1 ; 

The second offset slot is 4 bytes long. 
The contents of this slot are described 

The decision to 
offset slot in a 



in this appendix, 
include a second 



dictionary entry is based on questions 
about the nature 
Refer to figure 9. 



of the identifier. 



L_J 



implies that a second offset 
slot will be given, 



|N| that it will not. 

L_J 



Bit number _ 4 j_ 

POS for defined item.s. The two-byte 
slot will contain the POS value as a 
binary integer. 



Bi t nu mber 5; 

The initial value 
four-byte slot. 



or LIKE bit is a 



1. For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value' dictionary entry. The fourth 
byte contains X'FO' 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X'OF'. 

3. For initial labels. The first three 
bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF'. If 
there is an initial slot but no 
initial values the fourth byte con- 
tains X'OO' 

4. For LIKE. The first two bytes con- 
tain the LIKE chain. The third and 
fourth bytes contain the dictionary 
reference of the likened structure 



Bit number 2; 

The dimensioned bit. The slot produced 
by this is three bytes long. Tne first 
byte will contain the number of dimen- 
sions, the next two the dictionary 
reference of the dimension (multiplier) 
table 

Bit number 3j_ 

Memiber of a structure bit. This slot 
is ten bytes long and has the following 
format: 



Byt e Number 
1 
2 
3-4 

5-6 

7 

8-10 



Description 

Declared level numiber 

True level number 

Dictionary reference of 
the containing structure 

Dictionary reference of 
the next member in the 
structure 

Alignment 

Element length 



bit number 6 ; 

The EXTERNAL bit. This 2-Lyte slot 
contains the ESD number 

Bit number 7 ; 

The DEFINED bit. This 7-byte slot 
contains the following: 

B yte N umiber Description 

1-2 Defined chain. 

3-4 Dictionary reference of base 

5-7 The text reference of a 

second file statement. 
After the dictionary these 
bytes will contain X'FFFFFi)'' 
if the base is unsubscript- 
ed. 

Bit number 8: 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary' entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two-byte slot 
contains the dictionary reference of 
the dictionary entry for the data con- 
structed fromi the DECLARE statement 
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Entry 

I 
V 

Is it data 
iterr,? 

■ — ■ T 



N 



V 



Is it struc- 
ture? 



— T~' 

■>|<- 

YV 



Is it forinal 
parameter? 

T 

IN 
V 



Is It con- 
trolled? 

T 



|Y I 
j. J 



IS it static? 



N|<- 
V 



IS it string? 



Is it struc- 
ture member? 



Is it defined? 

■ T 



Is it dimen- 
sioned? 



Y r- 
— >|Y 



Y r- 
— >|Y 



Y r- 
— >|Y 



Y r- 
— >|Y 



r 1 

I IS it label |N p-i 

■>| variable? }■ — >|N| 

L ^ -J L_J 

Y 



r -1 

I Is it struc- |N r-T 
-> I ture member? |- — >|N| 

L y .J L_J 

|Y 

V 

|y| 

L_J 



Is it ex- 



■>l 



I ternal? 

L ^_. 

JN 



I— >|Y| 



T 

|N 
V 

r-1 
|N| 
L_J 

•Figure 10. Decision to Include a Second Offset Slot 
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Uses_of_tJie_0FFSETl_and_0FFSET2_Slots_iri 
Dat a , Label y and Structure_ Dictionary 
Entries 



Basic elei[!entsj_ OFFSETl slot not used. 

0FFSET2 slot contains offset of 
element's dope vector froiri the start of 
the EXTERNAL control section 



The OFFSETl slot is in bytes 6-8 of the 
dictionary entry and the 0FFSET2 slot is 
part of the variable information. 



CONTROLLED Structures 



STATIC INTERNAL Structures 



Majo r an d mi nor structure entries ; 

OFFSETl slot not used. 0FFSET2 slot 
contains offset of structure dope vec- 
tor from start of STATIC INTERNAL con- 
trol section (if there is a dope 
vector) 

Basic elements; OFFSETl slot contains 

offset of virtual origin (in the case 
of dimensioned item.s) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
0FFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 



AUTOMATIC Structures 



Major and manor structures; OFFSETl slot 
not used. 0FFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will oe zero. ) 



Basic elements ; OFFSETl slot not used, 
slot contains offset of 
dope vector relative to 



OFFSET 2 

element' s 

address in pseudo-register. 



Non-Structured Arrays in STATIC INTERNAL 



OFF'SETl slot contains offset of vertical 
origin of the array relative to start of 
data region. 0FFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 



Constant dimensions; as for STATIC 

INTERNAL except that all offsets are 
relative to start of DSA. 

Adjustable dimensions; major and minor 
structure entries: OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 



Basic 



elements;^ 
slot 



OFFSETl slot not used, 
contains offset of 



OFFSET 2 

element's dope vector (if there is one) 

from the start of the DSA 



Non-Structured Arrays in AUTOMATIC 



Constant diraensionsj_ 

INTERNAL 



as for STATIC 



Ad justable__dimensigns£ OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
dope vector from start of data region., 



STATIC_EXTERNALj 
Array 



CONTROLLED or Parameter 



STATIC EXTERNAL and Parameter Structures 



Major structure entry; OFFSETl slot con- 
tains offset of address slot from start 
of data region. 0FFSET2 slot contains 
size of EXTERNAL control section. 
(Offset of major structure dope 
vector = . ) 



OFFSETl slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) 0FFSET2 Slot is not present., 



Non-Structured Scalar Strings in STAT IC 
INTERNAL 



Minor structure entriesj_ OFFSETl slot 

not used. 0FFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 



OFFSETl slot contains offset of datum 
from start of data region. 0FFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 
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Non-Structured Scalar Strings in AUTOMATIC 



Constant_lengt_h; as for STATIC INTP:RNAL 

Adjustable l.enHthi OfFSETl slot not 

used. 0FFSET2 slot contains offset of 
dope vector from start of data region. 



Non- Structured _S c a 1 a r _S t :ci n^ s_ 4n _ S T AT I C 
EXTERNAL, CONTROLLED or Parair.eter 



OFFSETl slot contains offset of address 
slot which points to string dope vector 
(not used in the case of \CONTROLLED) . 
0FFSET2 slot not present „ 



11 Otner 1 Code Byte (See 
"First Code Byte - Other 1" 
in this Appendix 

12-14 Second Offset Slot 

15-16 Spare for Final Assembly 

17 Level 

18 Count 

19 Count of Containing Block 

20 BCD Length-1 

21 etc. BCD 



Non-Structured Non-String Scalars _in 
AUTOMATIC or STATIC INTERNAL 



OFFSETl slot contains offset of datuin 
from start of data region. 0FFSET2 slot 
not present. 



N on- Structured Non-Stri n c[^ §calars__in_ STATIC 
EXTERNAL,' CONTROLLED or Parameter 



OFFSETl slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED) . 0FFSET2 slot not 
present. 



X,'. OTHER DICTIONARY ENTRIES 

Label Constants - Extracted by^the Read-In 
Phase 

Byte Numiber D€:scription 

1 code byte X'OO' 

2-3 Length up to BCD length-1 
byte 

4-5 Hash chain - STATIC chain 

6-8 Offset 

9-10 Statement number (except 
when the label is mentioned 
in an ON CHECK list, in 
which case it gives the 
chain to the label BCD dic- 
tionary entry, code byte 
X'CE' ) 



Compile r_Labels 



The format is identical to that of a 
label constant, except for the emission of 
the BCD. The code byte is X'C3'. 



Formal parameter type_l entry 



These entries are derived from the PRO- 
CEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formial parameter. The 
format is as follows: 



Byte Number 
1 

2-3 
4-5 
6-7 



P^scription 

Code byte X'40' 

Length 

Hash chain 

These bytes wi 
full descript 
identifier afte 
or Phase FA, 
These full desc 
dictionary ent 
type of item th 
cribing. They 
tain the BCD o 
tifier, but in 
the hash chain 
dictionary ref 
corresponding f 
eter type 1 ent 

Level 



11 point 
ion of 
r Phase 

or Phase 
riptions 
ries for 
ey are 

do not 
f the i 

the slot 
there is 
erence of 
ormal pa 
ry . 



to a 

the 

EK, 

FE. 

are 

the 

des- 

con- 

den- 

f or 

the 

the 

ram- 



9 


Count 


10 


BCD length-1 


11 


BCD 
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For a description of the types of entry 
pointed to, see "Dictionary entry for par- 
ameter descriptions." 



Dictio nary entry for FILE 



For attributes specified in OPEN state- 
ment the format is as follows: 



16 


Level 


17 


Count 


18 


BCD length-1 



Byte N umber 
1 

2-3 
4-5 
6-8 
9-10 



Descripti on 

Code byte X'98' 

Length 

STATIC chain 

OFFSETl 

DECLARE statement number 



11 onwards String of second level mark- 
ers (without preceding 'C8' 
code bytes) one for each 
attribute other than FILE, 
TITLE and IDENT. 

This entry is created by the read-in 
phase and is referred to only as the 
argument of an ATTRIBUTES marker. 



FILE Constants 



Code X'08' is used for file constant 
entries, which have the following format: 

Description 

Code byte X'08' 

Length 

Hash chain, subsequently 
EXTERNAL or STATIC chain 
depending on whether FILE is 
EXTERNAL or INTERNAL 

OFFSETl (STATIC or transfer 
vector offset) 

Declare statement number 

Dictionary reference of 
attributes entry (zero if 
none) 

Code byte (similar to the 
"other 2" code byte. Only 
internal/external bit used) 

Dictionary reference of 
environm.ent string (zero if 
none) 




6-8 

9-10 
11-12 

13 

14-15 



19 onwards BCD 



FILE Parameters and Tempor ari es 



Code X'89' is used for file parameters 
and for file temporaries. The format of 
the entry will be the saire as that for 
label variables. 



FILE Environment Entries 

Code X'C8' is used for the environment 
string. 

Byte Number Description 

1 Code byte X'C8' 

2-3 Length 

4 onwards Internally coded formi of 
argument of ENVIRONMENT 
option 

Code X'C8' is also used for attributes 
collected from the DECLARE statement. 

Byte_Number Description 

1 Code byte X'C8' 

2-3 Length 

4 onwards String of second level m:ark- 
ers (without preceding code 
bytes X'C8'), one for each 
attribute other than FILE, 
ENVIRONiy'ENT, EXTERNAL, or 
INTERNAL 



Di ctio nary Entries £rom__Constants 

The format is: 
BYte_Number Description 

1 Code byte X'88' 

2-3 Length 
4-5 Hash chain 
6 DATA byte 
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9 

10 
11 
12 



13-14 



15 



Data Precision* 



Scale Factor* 

♦These are the apparent pre- 
cision and factor derived 
from the BCD of the constant 
(see Note 2) 

Type (see note 1) 

DATA byte (2) 

Data Precision (2)** 

Scale Factor (2)** 

+*These bytes are inserted 
by the phase requesting con- 
version. If a picture is 
r€iquired, these bytes are 
used to contain a picture 
table reference (see Note 3) 

Dictionary reference - used 
when a phase requires a con- 
stant to be converted into a 
specific location in storage 

BCD 



Eighth bit: 1 indicates 
version is required. 



that no con- 



Notes : 

1. The type byte has the following mean- 
ing: 

First and_second_bits : 

00 - normal BCD constant. The first 
offset slot must be relo- 
cated by the storage allo- 
cation phase, to contain 
the offset of the converted 
constant from the start of 
STATIC storage, rather than 
from the start of the con- 
stants pool 

11 - the BCD is replaced by the inter- 
nal form of the constant. 
The first offset slot is 
treated in the same way as 
for the code 00 

10 or 01 - the constant is required to 
be converted into a speci- 
fic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the con- 
stant requires a BED. 



After the constants processor the 
bytes 6 through 8 will contain tne 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 



Shoul 

const 

bytes 

facto 

refer 

If th 

then 

entry 

erenc 

dicti 



G a 
ruct 

r(2) 

ence 

e CO 

Pha 

for 

e p 
cnar 



DED 
ed 

pre 
, w 

of 
nsta 
se 

it, 
rece 
y re 



be requi 
by Phas 
cision (2 
ill con 
a DED d 
nt requi 
OS will 

and the 
ding th 
f erence 



red, this wi 
e PL. The 
) and 
tain a dicti 
ictionary e 
res a dope v 
make a dicti 

dictionary 
e BCD will b 
of this. 



11 ce 
two 
scale 
onary 
ntry . 
ectcr 
onary 
ref- 
e the 



Task Identifiers and EVENT Data 



The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 



Dictionary Entries for Built-in _Funct ions 



The format is: 



By te Numb er 
1 

2-3 
4-5 

6-8 
9-10 



Description 

Code byte X'04' 

Length 

Hash chain - later becomes 
the STATIC chain 

Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 



Seventh bit: 1 indicates that 
constant requires a dope vector. 



the 



Code bytes - 
byte cental 
identifies 
function an 
information 
used mainly 
MD-MM inclus 
code byte c 
information 
in function 
Code Byte.") 



the first code 
ns a value which 

the built-in 
d also provides 
about it. It is 
by phases IM and 
ive. The second 
ontains further 
about the built- 
(See "Second 



11-12 



DECLARE statement number 
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13 


Level 


14 


Count 


15 


BCD length-1 


16 


BCD 



13 
14 



further infoririation 
the function 

Level 

Count 



about 



Second Code Byte 



BCD entries 



The second code byte contains the 
following information: 



Bit Number 
1 
2 



Description 

May De passed as an argument 

iVIay have an array as an 
argument 

Must have an array as an 
argument 

Is a pseudo-variable 

Indicates to which of the 
two tables the offset refers 

May have an array (or 
structure) as an argument, 
but will return a scalar 
result 



I nte rnal Library Functi g n s 



Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 



! Number 


Description 


1 


Code Byte X'C2' 


2-3 


Length 


4-5 


Hash chain 


6-8 


Offset 



9 Library Code - identifies 
the particular Library rou- 
tine required 

10 Not used 

11-12 Code Bytes - the first code 
byte contains a value used 
by phase MG to pick up com- 
plete information about the 
Library function. The sec- 
ond code byte contains 



BCD entries are used when the LIKE, 
DEFINED, or POOL attributes are used. A 
short dictionary entry with the format 
given below is used. This is pointed at by 
the dictionary entry with the attribute. 



Byte Number 


Description 


1 


Code Byte X'40" 


2-3 


Length 


4 


BCD length-1 



BCD 



Dictionary Entry tor Pgramet_er_Descriptions 



Dictionary entries for parameter des- 
criptions are identical with the normal 
entry for data variable, label variable,, 
structure, file, or entry points, except 
for the following details: 

Hash chain contains pointer to formal 

parameter type 1. After Phase FT this 

pointer is moved to the bytes contain- 
ing level and count 

No BCD is present 

No block identification is present foi: 
ENTRY or FILE 

The code byte for an entry point 
referred to as entry type 6 - is X'86' 



2M_Statements 

Entries for ON statements are made by 

Phase FC, and contain the following: 

^Y!^_^I^IIi^SI Description 

1 Code Byte X'CL' 

2-3 Length 

4-5 AUTOMATIC chain 
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6-! 



Offset 



PICTURE Entry 



10 

11 
12 



Code byte as supplied by the 
Read-In Phase 



Block level 



The forrrat of an entry in the picture 
table in the dictionary. 



Block count 



13 onwards n dictionary references of 
variables or ON condition 
entries 



ON Condition 

This entry is made by Phase FO: 
Byte Number iDescription 

Code Byte X'4D' 
Length 



1 

2-3 

4-5 



6-8 
9 

10 
11 
12 



Hash chain later used as 
AUTOMATIC chain 

Offset 

Code byte as supplied by the 
read in phase 

Block level 

Block count 

BCD length-l 



13 onwards BCD 



CHECK_List_EntrY 

This entry is made by Phase FO: 
Byte Number Description 

Code Byte X'C8' 
Length 



1 

2-3 

4 



n where n is the number of 
dictionary references fol- 
lowing 



BYte_Nuiinber 
1 

2-3 
4-5 

6-8 
9 

10 
11 



12 



^^scription 

Code Byte X'C8' 

Length = L+13 

Contains address of next 
entry in picture chain 

Offset in STATIC storage 

Code Byte (after Phase FQ) 
(See Code Byte description) 

P - the nuirber of digit 
positions in field in numer- 
ic picture. 

Q - the number of digit 
positions after V character 
in numeric picture. Code 
X'80' represents 0, X"7F' 
represents -1, and X'81' 
represents +1. 

W - apparent length of pic- 
ture. - length of picture 
following. (For a non- 
numeric picture the length 
is obtained in bytes 12-13.) 



14 onwards Picture. 



Byte_9_2_Code_B]^te 



Bit_Number 
1 



5 onwards Dictionary references (2n 
bytes) 



Description 

string 

1 numeric 

correct 

1 error 

not sterling 

1 sterling 

short 

1 long 

Not used 

decimal 

1 binary 

fixed 

1 floating 

Not used 
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Dictionary Entry for Workspace Requirement 



Symbol Tab le E ntry 



The format for a dictionary entry for 
workspace requirement is: 



Symbol table entries are made by Phase 



Byte Number 


Description 


1 


Code Byte X'C8' or X'CA' 


2-3 


Length = 8 


4-5 


Total workspace required 


6-8 


Offset 



If the code byte is C8 this is the 
temporary workspace used by pseudo-code 
(temporary type 1) . 



Dic tionary Entry for Par amet er_ Lists 



Dictionary entries for parameter lists 
have the following format: 



Byte Number 


Description 


1 


Code Byte X'C5' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


STATIC offset 


9-10 


Assembled length 



11 onwards Contains DCA's 



Dictiona r y Entr ies for Dope Vect or 
Skeletons 



Byte Numiber 


Description 


1 


Code Byte X'C6' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset in STATIC 


9-10 


Dictionary re: 



reference or 
DECLARE number 

11 onwards Bit pattern of skeleton dope 
vector 

This entry is constructed by Phase PD 



PL. 






Byte Num 


ber 


Description 


1 




Code Byte X'C7' 


2-3 




Length 


4-5 




STATIC chain 


6-8 




Offset in STATIC of DED 


9-11 




Actual DED if not pict 



If a picture is involved,, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

12-13 Offset in STATIC Storage of 
symbol table entry 

15-16 Dictionary reference of next 
item in the symbol table for 
this block 

17-18 Dictionary reference of item 
requiring entry in symbol 
table 



Dictionary Entry for AUTOMATIC Chain 
Delimiter 



An eni^ry for AUTOiXlATIC chain delimiter 
is made by Phase PP. 

Byte Number Description 

1 Code Byte X'CC* 

2-3 



4-5 
6-7 

8-9 



Length 

AUTOMATIC chain 

Pointer to first second file 
entry 

Pointer to second second 
file entry 



DED Dictionary Entry 

An entry for a DED is created by Phase 
PL. 

:§Y.t.e_Number description 

1 Code Byte X'C7' 
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2-3 



Length 



Label BCD Entries 



4-5 



6-i 



9-11 



STATIC chain 



STATIC offset 



Actual DED 



If the DED requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This €?ntry has the sair.e format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 



DED2 Entries 



These entries are generated when a DED 
is required for the conversion of a tem- 
porary result. 



B yte Number 
1 

2-3 
4-5 
6-8 
9-11 



S^scrigtion 
Code Byte X'Cl' 
Length = 11 
STATIC chain 
Offset 
Actual DED 



Diction ary E ntry for FED 7 Format__Element 
Descriptor. 



The entry for a FED is made by Phase NV. 

The entry is identical with a DED2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 



Byte Number 


:06.§2£±Eii2.0 


1 


Code Byte X'Cl' 


2-3 


Length =12 


U-5 


STATIC chain 


6-8 


STATIC Offset 


9-12 


Actual FED 



Label BCD entries are made by Phase FO. 
BY,te_Number Description 

1 Code Byte X'CE' 

2-3 Length 

U-5 DECLARE number 



6-7 



i-9 



Offset of the BCD 
in STATIC 

Dictionary reference of item 
requiring BCD 



These entries are constructed when a 

statement label or a PROCEDUKL or ENTRY 

I label is mentioned in an ON CHEiCK list. 

JThese entries are also made for EVENT and 

[TASK variables. Phase PD will allocate 

storage in STATIC for the BCD of the label, 

and place the offset of this in the above 

entry. 



Dope Vector Entries for^Temporaries 



This entry is constructed to indicate 
that a dope vector is required for a 
temporary result. At this stage the bytes 
in the entry contain the following: 



Byte Number 
1 

2-3 
4-5 
6-8 



9-10 



11-12 



26SS£iEiion 

code Byte X'CO' 

Length 

AUTOMATIC chain 

Offset in the temporary type 
1 stack. After Phase i,J 
this will contain the offset 
from the start of the DSA 

Dictionary reference of dope 
vector skeleton entry 

Length of string 



I Record .Dope Vector_EntrY 

This entry is constructed when a varia- 
|ble requires a record dope vector. 

Byte Number Description 

1 Code Byte X'C9' 
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2-3 Length 

4-5 STATIC or AUTOMATIC chain 

6-8 Offset 

9-10 Dictionary reference of 
variable 

11-18 Eight bytes of RDV text 

19-20 DECLARE number 

Dope Vector Descriptor Entry 



!-9 



10 



entry type 1 of the block 
from which the second file 
statement was extracted 

Dictionary reference of a 
three-Dyte slot in the dic- 
tionary. 

Type of second file state- 
ment, i.e. the function it 
performs. This is the sec- 
ond byte of the dictionary 
reference used to designate 
the function in the actual 
second file statement 



This entry is constructed for a struc- 
ture which requires a dope vector descrip- 
tor. 



Eyte Nurticer 


Description 


1 


Code Byte X'CC 


2-3 


Length 


U-5 


STATIC chain 


6-8 


Offset 


9-10 


Dictionary reference 




structure 



of 



11-12 



13. . . 



Chain to RDV 
DECLARE number 



entry or 
DVD text set up by Phase JK 



F ormiat of a Second File Dictionary Entry 



Eyte Number D^^ription 

1 Code byte X'C8' 

2-3 Length of entry 

4-5 Statement number of the 
DECLARE or Other statement 
giving rise to the second 
file statement 

6-7 Dictionary reference of the 



|DictionarY_EntrY_for_a_STATIC_DSA 



This entry is made by phase PA (whenever 
a block has its DSA in STATIC). The "size 
of DSA" slot (right-hand two bytes) in the 
Entry Type 1 is used to contain the dic- 
tionary reference in this entry. 

Byte Number Dsscrigtion 

1 Code byte X'CS' 

2-3 Length = 20 

4-5 Dictionary reference of the 

next STATIC DSA entry, or 

zero if this is the last 

entry. 
6-7 Offset address slot in STA- 
TIC for the DSA (set by 

phase PD) . 
8-10 Size of DSA (set by PT and 

amended by RF) . 
11-12 Dictionary reference of the 

Entry Type 1 of the block. 
13 Code byte to be put into 

first byte of DSA. 
14-16, Offset of start of DSA in 

STATIC (set by phase TO) . 
17-18 Head of block's automatic 

chain. 
19-20 Not used 



DIMENSION TABLE 



Each entry containing dimension informa- 
tion will result in a table being set up, 
This table is shown in Figure 10. 
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I Code Byte C8 

I- 

I Zero byte 

f 

I 



I Two-byte lenqth 

.+ T._: 

I No. of dimensions (n) | 

.X X 

VI.RTU/^.L ORIGIN WORD 



Plaq Eyte 



Two-byte chain address 



j. ^ 

I One-byte marker | Not lased 
^. 1 

I One-byte marker | Not used 
^ ^ 



I Lower bound (halfwcrd) 
4 

I Upper bound (halfword) 
4 



h 



n multipliers | 



■+- 



I nth upper bound 



Notej_ The one-byte marker is: 

I 00 if bound is fixed point constant; bound is a two-byte binary constant, right-adjusted. 

FF if bound is an expression; bound is a three-byte pointer to a second file statement in 
text. 

7F if the bound is inherited and has an IViTF function. 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

•Figure 11. Dimension Table 



DICTIONARY ENTRIES FOR INITIAL VALUES 



The declaration of a variable with an 
INITIAL attribute produces these entries: 

An INITIAL dictionary entry 

and 

One or more dictionary entries for con- 
stants 

and perhaps 

A second File Statement for any iteration 
expression contained in the INITIAL 
specification. 

The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the 
following format. 



Byte _ Number 

1 
2-3 

4 
5 
6 
7 onwards 



2§S2£i.E2tion 

Code Byte X '08' 
Length of entry 
Prefix options byte 
INITIAL code byte X '79' 
Left parenthesis 
INITIAL value list (see 



below) 

Right parenthesis 



Final 



INITIAL Value List 



The INITIAL value list contains referen- 
ces to Second File Stateir;ents and dictiona- 
ry entries which are created to correspond 
to the value in the input, text. 

The list contains the following code 
bytes to identify each associated dictiona- 
ry reference: 

X'Fl' Constant iteration factor. This is 
followed by X'OO' and the dictionary 
reference of the constant iteration 
factor. 

X'F3' INITIAL value item. This is fol- 
lowed Dy X'OO* and the dictionary 
reference of the constant. (The BCD 
of the constant is expanded by any 
imposed string replication factor) . 

X'F5' EOB marker. This is followed by 
X'OO' and the dictionary reference 
of the next entry on the chain. 
(This will occur when the scratch 
core storage allocated for building 
the entry is not sufficient, and a 
chain of entries is constructed) . 
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I X'F7' Variable iteration factor. This is 

I followed by the text reference of 

I the Second File Statement containing 

I the expression. 
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APPLNDIX D: INTLRNAL FCKMATS OF TEXT 



This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 
manner: 



1. Text code bytes after read in 

2. Text formats after read in 

3. Text code bytes on entry to the tran- 
slator 

4. Triple formats 

5. Text code bytes in pseudo-code 

6. Text formats in pseudo-code 



7. Text formats in absolute code 

8. Second file statements, and the for- 
mats of compiler functions and pseudo- 
variables 

9. Pseudo-code phase temporary result 
descriptors (TMPDs) 

10. Internal and external Library calling 
sequences 

11. Descriptions of terms and abbrevia- 
tions used in text during a compila- 
tion 

Note: The internal formats of text during 
compile-time processing are described 
in Appenaix J. 
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1. TEXT CODE BYTE AFTER THE READ-IN PHASE 



First Level Table (00 to 7F) 



r — 




T T T 




T 


-T 


T- 


T 


1 





1 a 1 # 1 


$ 


1 BLANK 


1 


1 


1 


f— 




X X 1 




— + 


_X 


+ 


X 



DO 
EQUALS 



> 



I + + 



Ci/'' 



<= T> 



+ + + 



+ + 



ASSIGN 



MULTIPLE 
ASSIGN 



>= 
1< 



REFER 



II 



+ + 



+ + + 



PSEUDO- 
VARIABLE 



^' 



+ + 



PREFIX - 



FUNCTION 



+ + 



+ + 



PREFIX + 



SUBSCRIPT 



LITERAL 
CONSTANT 



X X 

< Letters > 



I < 
.X 



♦ * 



<-Digits-> 



< — Operators- 
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First Level Table (80 to FF) 



B 



T T 

HYBRID 
QUAL 



■T n 

I 

|FL DEC IiyiAG 

■+ 

I 

I FL DEC REAL 



TO 



LINE 



SN 



ALLOCATE 



CALL 



ENTRY 



ASSIGN_BY 
NAiYiE 



4- 



4- 



-+ 

1 FL BIN IMAG 



EY 



SL 



FREE 



RETURN 



PROC 



SL' 



|FL BIN REAL 
+ 



WHILE 



CHECK 



CN 



+■ 



■+- 



+- 



I FIX DEC IMAG 



DISPLAY 



GOOB + 



BEGIN 



GET 



■+■ 



jFIX DEC REAL 



SNAP 



COL 



CL 



4- 



4- 



|FIX BIN IIviAG 

4- 



SIGNAL 



GO TO 



ITDO 



WRITE 



PUT 



+■ 



1ND_D0 I FIX BIN REAL 



+ 

I 
END ITDO [INTEGER 



SYSTEM 



NO 
CHECK 



2nd LEVEL 
MARKER 



4- 



4- 



WAIT 



REVERT 



DO 



READ 



UNLOCK 



END |STG DEC REAL 
+ 



THEN 



DATA 
LIST DO 



4 



4- 



DELAY 



INIT LABEL 



IF 



LOCATE 



REWRITE 



4- 



4- 



END PROG I ON 



4 

I ARRAY 

I CROSS SECTION 



CONTROL 
VARIABLE 



SN2 



4 



4 



4- 



EXIT 



NULL 



DECLARE 



ELSE 



DELETE 



OPEN 



4 



4 



4- 



END BLOCK I CHAR CONSTANT 



NO SNAP 



I SUB 



STOP 



ASSIGN 



FORMAT 
J. X 



CLOSE 



I BIT CONSTANT 
.X J 



+ Go Out Of Block 
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Sec o nd Level T able (00 to 7j) (preced ed by second level m ark er byte C8) 



r T T T T T T T 1 

I I FILE I I I DECIMAL | OPTIONS j EXTERNAL JAREA | 
|. 1 + + + 1 1 + ^ 

I III I BINARY I IRREDUCIBLE I INTERNAL | POINTER | 
^ + 1 + 1 + + + ^ 

I I LIST I I I FLOAT | REDUCIBLE | AUTOMATIC | EVENT j 
I- + 1 1 + + + + ^ 

I I EDIT 1 EVENTS | | FIXED (RECURSIVE | STATIC | TASK j 
^ + + 1 1 + 1 1 ^ 

[TITLE I DATA j PRIORITY j j REAL (ABNORMAL | CONTROLLED | CELL j 
|. 1 1 1 1 + 1 1 ^ 

I ATTRIBUTES I STRING (REPLY j (COMPLEX (NORMAL (SECONDARY (BASED ( 
^ + 1 1 1 + + + ^ 

IPAGESIZE (SKI ( ( (PRECISION 1 (USES ( (OFFSET j 
^ 1 + ^. 1 1 ^ 1 ^ 

IIDENT (LINE ( j (PRECISION 2 [SETS ( [ j 

^ + 1 + + + ^ + ^ 

ILINESIZE (PAGE ( ( (VARYING (ENTRY ( INITVAR 1 ( j 

^ + 1 1 1 + 1 1 ^ 

I (COPY I I ( PICTURE (NUM) (GENERIC (INITIAL (INITVAR 2( 
^ + 1 „^. 1 1 ^ 1 ^ 

I INTO (KEYTO ( j (BIT ATTRIBUTE (BUILTIN (LIKE ( j 

L i i _i i i i i.^ J 

I FROM (TASKOP ( ( (CHAR ATTRIBUTE ( (DEFINED ( ( 

L i i i i i i i J 

|SET ( (IN ( ( DIMS ( INTEGERS ) ( (ALIGNED ( ( 

\. + 1 + + + 1 1 ^ 

I KEY j j ( (LABEL j (PACKED ( | 

^ 1 + 1 + + 1 1 ^ 

iNOLOCK (KEYFROM ( j ( ( (PACKED ( j 

^ 1-_ 1 + 1 1 1 1 ^ 

I (FORMAT j ( (DIMS j j [PICTURE ( 

IGNORE ILIS I I BY NAME I (NON- INTEGER) I RETURNS IPOS I (CHAR) I 



L JL JL J. X J. J. ± J 



^The EVENT built-in function 
and pseudo-variable are 
known externally by the 
equivalent name COMPLETION. 
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EJecond Level Table (80 to IF) 



r T 

I BUFFERED 



T T 

lyiAiN 



y ^ ^ 

CONVERSION I CONDITION i 




1 

I 

I 2 

3 

I ^ 

5 

I 6 
7 

I 8 
9 

A 
B 
C 
D 

E 
F 



+ ■ 



OVERFLOW 



UNBUFFERED 



EXCLUSIVE 



REENTRANT 



UNDERFLOW 



STRING- 
RANGE 



NAME 



+- 



+- 



KEYED 



+■ 



+- 



STREAM 



SECONDARY 



ZERODIVIDE 



AREA 



TRANSMIT 



■+■ 



RECORD 



BACKWARDS 



TASK 



FIXED 
OVERFLOW 



ENDFILE 



CfiECK 



■+- 



+- 



SEQUENTIAL 



DIRECT 



ON-BLOCK 



SUBSCRIPT 
RANGE 



ON RECORD 



PRINT 



•+• 



ENVIRONMENT 



ERROR 



END PAGE 



■ + 



INPUT 

OUTPUT 

UPDATE 



+ ■ 



■+- 



FINISH 



KEY 



NOCHECK 



■+■ 



SIZE 



UNDEFINED 
FILE 



4- 



2. TEXT FORMATS AFTER THE READ- IN PHASE 



In the statement formats in this sec- 
tion, the code bytes SN, SL, SL' , POS, and 
OB have the following meanings: 



SN statement number 



SL statement label 



SL' initial label 

POS following SN is a 2-bYte statement 
number 

following SL is a 2-byte dictiona- 
ry reference of statement label or 
entry type 1 

OB prefix options byte, specifying ON 
conditions enabled for the state- 
ment as follows: 




ON CONDIIION 



OVERFLOW 

UNDERFLOW 

ZERODIVIDE 

FIXEDOVERFLOW 

SUESCRIPTRANGL 

SIZE 

CONVERSION 

STRINGRANGE 



The aboreviation SQUID means an iden- 
tifier, possibly subscripted and/or quali- 
fied. 



PROCEDURE Statement 



The format of a PROCEDURE statement is 
as follows: 
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Byte NuiTjiger Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 PROCEDURE 

6 Block level 

7 Block count 

8-10 PROCEDURE-ELGIN chain 

11-13 DECLARE chain 

14-16 ENTRY Chain 

17 Left parenthesis - optional 

18,.. Format pararrieter list - 

optional 

Right parenthesis - optional 

Attribute Uiarker - optional 

Attribute code - optional 

Attribute list - optional 

End of statement semicolon 



Attribute code - optional 

Attribute List - optional 

Statement terminating 
semicolon 



BEGIN Statement 



The format of a BEGIN statement is as 
follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


BEGIN 


6 


BLOCK LEVEL 


7 


Block count 


8-10 


PROCEDURE-BEGIN chain 


11-13 


DECLARE chain 


14 


Statement terminating 



semicolon 



ENTRY Sta tem ent 

The format of an ENTRY statement is as 
follows: 

Byte Number Description 

I Code byte SN or SL 
2-3 POS 

4 OB 

5 ENTRY 

6-B ENTRY chain 

9 Block level 

10 Block count 

II Left parenthesis - optional 

12 Formal parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 



END Statement 

The format 
follows: 

Byte Number 

1 

2-3 

4 



of an END statement is as 

Description 

Code byte SN or SL 

POS 

OB 

ENBl, END2, Or END3 - ENDl 
ends a PROCEDURE or BEGIN 
block; END2 ends an itera- 
tive DO block; END3 ends a 
non-iterative DO block 

Block level for the contain- 
ing block 

Block count for the contain- 
ing block 

Statement terminating semi- 
colon 
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IF Statenient 



Expression 



The format of an IF statement is as 
follows : 



Statement terminating 
semiicolon 



Byte Numbe 


r 


Description 


1 




Code byte SN or SL 


2-3 




POS 


4 




OB 


5 




IF 


6. . . 




Expression 

THEN 

Statement or Group 

ELSE - optional 



Statement or Group 
optional 

Note: The semicolon preceding the ELSE has 
been deleted 



DO Statement 



The format of 
follows: 



a DO statement is as 



Byte Number 


Pe.scription 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


DO or ITDO 


6 


CV 


7 


BKC 


8.. . 


Squid 




DO equals 




Expression 




TO 




Expression 




BY 




Expression 




WHILE 



ON Statement 



The ON statement takes one of the fol- 
lowing formiats: 



1. 






Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




ON 


6 




ON Condition 


7 




SNAP or NCSNAP 


8 




Statement or block 


2. 






Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




ON 


6 




ON Condition 


7 




System 


8 




SNAP or NOSNAP 



ASSIGN Statement 



The format of the ASSIGN statement is as 
follows: 



Byte Number 


Description 


1 


code byte SN or SL 


2-3 


POS 


4 


OB 


5 


ASSIGN or ASSIGN BY NAME 


6. . . 


Squid 



Comma - optional, 
may be repeated 
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Squid - optional, 
may be repeated 

Variable nuirber of bytes - 
optional, may be repeated 

ASSIGN 

Expression 

Statement terminating 
semicolon 



WAIT Statement 

The WAIT statement has the following 
format: 

Byte N umber Description 

1 Code Byte SN or SL 

2-3 POS 

4 OB 

5 WAIT 

6 Left parenthesis 
7. . . Identifier 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 

CALL Statement 



The CALL statement has the following 
format: 



2-3 POS 

4 OB 

5 CALL 

6-8 CALL chain 

9 Identifier 

10 Left parenthesis 

11 Expression 

12... Right parenthesis 

Left parenthesis 

Argument List 

Right parenthesis 

Statement terminating 
semicolon 



GO TO Statement 



The format of the GO TO statement is as 
follows: 



Byte Number 
1 

2-3 
u 

5 
6. , . 



Description 

Code byte SN or SL 

POS 

OB 

GO TO 

Squid 

Statement terminating 
semicolon 



SIGNAL and REVERT Statements 



The SIGNAL and REVERT statements have 
the following format: 



Byte Nu mbe r 
1 



Description 

Code byte SN or SL 



Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




SIGNAL or REVERT 


6 




ON Condition 
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statement terminating 
semicolon 



DISPLAY Statement 



The format of the DISPLAY statement is 
as follows: 



lYJ^^-^uniber Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 DISPLAY 

6 Left parenthesis 
7. , . Expression 

Right parenthesis 

Left parenthesis - optional 

Squid - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



DELAY Statement 



The format of the DELAY statement is as 
follows: 



Byte Number 
1 
2-3 

5 
6 
7... 



Description 

Code byte SN or SL 

POS 

OB 

DELAY 

Left parenthesis 

Expression 

Right parenthesis 

Statement terminating 
semicolon 



RETURN Statement 

The format of the RETURN statement is as 
follows: 

BYte_N umber Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 RE 1 URN 

6 Left parenthesis - optional 
7... Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



STOP, EXIT, and Null Statements 



The format of STOP, EXIT and Null state- 
ments is as follows: 



By te N umber 
1 

2-3 
4 
5 
6 



Description 

Code byte SN or SL 

POS 

OB 

Statement identifier 

Statement terminating 
semicolon 



INITIAL Label DECLARE Statements 



The format of INITIAL label DECLARE 
statements is as follows: 



Description 

Code byte SN or SL 

POS 

OB 

INITIAL Label DECLARE 

DECLARE chain 

INITIAL label 
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statement terir.inating 
semicolon 



Format items are replaced by one-byte 
codes 



DECLARE and ALLOCATE Statements 



OPEN and CLOSE Statements 



The format of DECLARE and ALLOCATE 
statements is as follows: 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 DECLARE or ALLOCATE 

6-8 DECLARE chain or ALLOCATE 
chain 

9... Declaration list 

Statement terminating 
semicolon 

FORMAT Statements 



The format of the FORMAT- statement is as 
follows: 



The format of OPEN and CLOSE statements 
follows. 



■iYie_Number 


D^scrigtion 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


OPEN or CLOSE 


6. .. 


File group list 



Statement terminating 
semicolon 



READ, WRITE, GET, PUT, REWRITE, UN LOCK , and 
DELETE Statements 



The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows : 



Byte Number 


Description 


1 




Code byte SN or SL 


2- 


■3 


POS 


4 




OB 


5 




FORMAT 


6. 




Format list 



Statement terminating 
semicolon 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


Statement identifier 


6. .. 


Option list 



Statement terminating 
semicolon 
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TEXT CODE BYTES ON ENTRY TO THE 



TRANSLATOR PHASES 





r 


-T 


-T 


-T 

1 COMPILER 


-T 

1 


-T 

1 


-T 




-^ 

] COMPILER 


-1 





IDICT. REF 


. |FILE 




1 FUNCq:iON 


1 


jFILF' 






1 FUNCTION ' 




1 


1 


X _ 


-+ 

X_ _ 


-+ 

1 

L _ 


-+ 

1 COMMA 

_x 


-+ 

1 { 

X _ 


- + — 
]D0 
-X 


EQUALS 


-+ 

1 } 

_x_ . 








t 


t - 


1 COMPILER 


T 
1 


T 

1 


T 




1 COMPILER 




2 




1 LIST 
-+ 


X 


1 FUNCTION 
1 CALL 
_X _ _ . 


1 FCOMMA 

1 

_x 


ILIST' 

1 
X _ 


-X - 




1 FUNCTION CALL 
L _ _ 




3 




lEDIT 
1 _ 


T 

1 EVENT 

x_ _ 


T — - . 
1 

_x_ 


T 

1 ( 

_x 


lEDIT' 

X 


T 

_x 




— f- — — _ - 
L 








T 


t - ~ 


t 

1 COMPILER 


T T 

1 COMPILER 1 


t 




t 

] COMPILER 




U 


1 TITLE 


IDATA 


1 PRIORITY 


1 PSEUDOVAR 


1 FUNCTION] DATA' 






1 PSEUDOVAR' 












1 


1 COMMA 


1 














1 


_j 


_x_ 


-X- - 


_X _ 


-X 




X 




5 


1 ATTRIBUTE 


t — 

S| STRING 

L 


T 

1 REPLY 

X _ 


T 

1 

_x_ 


T 
|) 

_x 


1 STRING' 

X 


T 
-X 


< 


T 

] + 

X 








-T 


t 


t 

1 


t T 

1 COMPILER 1 


t 




T — 




6 


IPAGESIZE 


jSKIP 
_X 


_X — — 


1 ERROR 

_x - . 


1 ASSIGN 

_x 


1 

i 


± 




|NDX 
-X 








-f 


T 
|BUY 


T 
1 


T 

1 


1 MULTIPLE] 




T 




7 


III DENT 


|LINE 


1 CHAMELEON 


|BUY ASSIGN] ASSIGN 


1 ASSIGN 




^ 1< 


] / 








1 


_ X 


_x_ _ 


- X _ - 


X _ 


_X 




_x 




8 


ILINESIZE 


IPAGE 


t 


lARCO 


IDROP 


JTMPD 


]LEFT 


JOFS 








_ 1 


_X - 


_x . 


_x , 


_x 


-X 




_x_ _ _ 




9 




T 

[COPY 


t 


T 
1 


1 II 


\LD 


t 


1 - 


T 

1 * 








_X_ — 


-X 


_X - — 


_x _ 


_X_ - 


-X 




_x 








t- 


t 


T 
1 


IBUYB 


T 
1 


T 




T 




A 


IINTO 


1 KEYTO 




1 PSEUDOVAR 


1 CALSEQ 


|TT 






1 PSEUDOVAR" 








-+ 


-+ 


-+ 

|END 


1 


-+ 

1 


- + — 




-+ 


"1 


B 


(FROM 


ITASK 

_± 


ILIST MARK 
L „_ 


ILIST MARK 
_x_ 


1 1 
_x _ 


] JMP 
X 


L 


= 


1 PREFIX - 
_x _ 




C 


|SET 


— |- 

|RPL 
_i 


t ~^ 
|IN 

X _ 


1 FUNCTION 
_ J _ 


ICNVA 
-X— _ 


]RPL' 
x_ 


T 

-X 




1 FUNCTION' 

L _ 








~T 


T 


t~ - 

1 ARGUMENT 


1 


T- 

1 


t 




— |- - — 




D 


|KEY 


_ 1 


_x . 


1 MJ-iRK 
_x 


1 & 

_x 


1 
X_ _ 


_x 


> 


1 PREFIX + 

L_ _ _ 








t 


t 

1 DEFINED 


1 SUBSCRIPT 


T 

1 


1 LITERAL 


1 DEFINED 


— f-- — - 




E 


1 NOLOCK 


1 KEYFROM 


1 SUBSCRIPT 


1 


ICNVB 


] CONSTANT ] SUBSCRIPT 


' 1 SUBSCRIPT' 








_X _ _ _ 


_x 


L 


_x _ 


X _ 


_X 




_x _ 








1 FORMAT 


t 


T 

1 


t — 
1 


] FORMAT 


t 
1 




T 




F 


1 IGNORE 


ILIST 




1 


1 -I 


]LIST' 


1 


< 


1 *:lf. 






I. 


_X 


_X 


-X- 


_x 


_X 


-X 




_x 


.J 
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I TO 



1 
2 
3 
4 
5 
6 
7 
8 

I 9 

A 

I B 

C 
I D 

E 
F 



ALLOCATE 
BY 



LINE 



CALL 



TO' 



SN 



CALL" 



EIO 



PAGE 



BY' 



FREE 
WHILE 



RETURN 



PROC 



PROC 



SKIP 



WHILE' 



CN 



-+■ 



DISPLAY 



GOOB 



BEGIN 



SORT 



GET 



BEGIN' 



■ + ■ 



SNAP 



COL 



SNAP' 



CL 



-+- 



+■ 



+- 



■+■ 



SIGNAL 



GOTO 



ITDO 



WRITE 



PUT 



END DO 



ITDO' 



■+ 



SYSTEM 
WAIT 



SYSTEM' 



E' 



END ITDO 



REVERT 



DO 



READ 



UNLOCK 



END 



DO' 



THEN 
DELAY 



F' 



■+- 



IF 



LOCATED 



REWRITE 



END PROG 



IF' OR ON 



■+- 



CV 
EXIT 



SELL 



SN2 



CV 



ARRAY 

CROSS SECTION 



+- 



NULL 



BUY 



ELSE 



DELETE 



OPEN 



END BLOCK 



4- 



+- 



• + - 



NOSNAP 



C 



END PROG 2 



NOSNAP' 



STOP 



ASSIGN I BUYS 
X 



FORMAT 
± X 



CLOSE 



FORMAT 
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U. FORMAT OF TRIPLES 



The triples produced 
translator phase each 
bytes, an operator fol 
fields. Each of the two 
occupied by an operand, 
dictionary reference, 
bytes, or a numeric par 
bytes in place of a d 
operand imply that th 
result of previous opera 
type and location are 
in the text. 



as output from the 
consist of five 
lowed by two 2-byte 
-byte fields may be 
which may be a 
a code byte or code 
ameter. Two zero 
ictionary reference 
e operand is the 
tions, and that its 
described in a TMPD 



The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 



TRIPLE TYPE 



KEYED 



TITLE 



ATTRIBUTES 



PAGESIZE 



I DENT 



LINESIZE 



INTO 



|I 

I r 

h 

h- 

j] 

h 
|] 

h 
I--— - 

FROM 
J. 

KEY 

I-: 
I---— 

FILE 
J. 

LIST 

F 

EDIT 
^ 

DATA 



IGNORE 



STRING 



SKIP 

I- 

LINE 

f 

PAGE 

COPY 



KEYTO 



HEX 
CODE 



03 



04 



05 



06 



07 



08 



OA 



OB 



OD 



OF 



10 



12 



13 



14 



15 



16 



17 



18 



19 



lA 
± ± 



FIELD 1 



T 1 

FIELD 2 



+- 



+- 



+- 



4 



4 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



■+- 



OPERAND 



OPERAND 



OPERAND 



+ ^ 

OPERAND 

X J 



TASK 



T T 

IB 



RPL 



IN 



KEY FROM 



FORMAT LIST 



UP 



GIVING 



DOWN 



EVENT 



PRIORITY 



REPLY 



BUY CHAMELEON 



MSA 



MTA 



DEFINED 
SUBSCRIPl 



NULL-FUNCTION 



COMPILER 
FUNCTION 



COMPILER 
FUNCTION CALL 



COMPILER 
PSEUDO-VARIABLE 



BUY ASSIGN 



ARCO 



PSEUDO-VARIABLE 



FUNCTION 



SUBSCRIPT 



NOP 



COMMA 



FUNCTION COMMA 



COMPILER 
FUNCTION COMMA 



ACT 



IC 



ID 



IE 



IF 



20 



21 



22 



23 



24 



25 



27 



+- 



28 
29 



+- 



2E 



2F 



+- 



30 



32 



34 



37 



38 



3A 



3C 



3E 



3F 



41 



42 



44 



45 



COMPILER ASSIGN 
L X 

♦This triple may 
format lists. 



4 



+- 



+- 



+- 



OPERAND 
OPERAND 



+- 



loperand 2 
+ 



OPERAND 



OPERAND 



+- 



OPERAND 



OPERAND 



4- 



OPERAND 1 



4 



OPERAND 



OPERAND 



OPERAND 



4 



OPERAND 1 



46 I OPERAND 
X 

have two 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 2 



OPERAND 2 



4 



OPERAND 



OPERAND 



OPERAND 2 



,_| 

1 I OPERAND 2 I 
_X J 



operands in 
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DROP 



ASSIGN 



CONCATENATE 



BUY B 



OR 



AND 



NOT 



LIST' 



EDIT' 



DATA' 



STRING' 



STMPD 



MULTIPLE ASSIGN 



TMPD 



JMP 



RPL' 



LITERAL CONSTANT 



FORMAT LIST' 



UP' 



DO EQUALS 



DOWN' 



ERROR 



UPSIDE-DOWN 
COMMA 



LESS/EQUAL 



GREATER/EQUAL 



LEFT 



NOT EQUAL 



EQUA] 



GREATER 



DEFINED 
SUBSCRIPT' 



LESS 



COMPILER 
FUNCTION' 



48 



47 



49 



+- 



4A 



+- 



+- 



4B 



4D 



+- 



4F 



52 



53 



54 



55 



56 



+■ 



57 



•+- 



58 



■4- 



5B 



-+- 



5C 



+- 



5E 



5F 



60 



61 



62 



63 



64 



65 



67 



68 



69 



6B 



6D 



6E 



6F 



4 



70 



T 1 

OPERAND 



OPERAND 1 



+- 



OPERAND 1 



+ ■ 



+- 



OPERAND 1 



OPERAND 1 



+- 



OPERAND 1 



+ ■ 



■+- 



OPERAND 1 



OPERAND 1 



OPERAND 1 



4- 



+- 



■+- 



OPERAND 1 



OPERAND 1 



4 



OPERAND 1 



4 



OPERAND 1 



OPERAND 1 



OPERAND 1 



4 



4 



OPERAND 1 



4 



OPERAND 1 



4 



OPERAND 



OPERAND 1 



OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 



4- 



OPERAND 2 



OPERAND 2 



4 



OPERAND 2 



OPERAND 2 



4 



OPERAND 2 



OPERAND 2 



4 



OPERAND 2 



4 



OPERAND 2 



4 



OPERAND 2 



COMPILER 
FUNCTION CALL' 



MINUS 



COMPILER 
PSEUDO-VARIABLE ' 



PLUS 



DIVIDE 



MULTIPLY 



PSEUDO-VARIABLE ' 



PREFIX MINUS 



FUNCTION' 



PREFIX PLUS 



SUBSCRIPT' 



EXPONENTIATE 



TO 



ALLOCATj 



BY 



FREE 



WHILE 



SNAP 



DELAY 



CV 



EXIT 



STOP 



LINE 



END ALLOCATE 



PAGE 



SKIP 



DISPLAY 



COLUMN 



SIGNAL 



REVERT 



72 
73 



+- 



74 
75 



77 
79 



+- 



7A 
7E 



+- 



7C 

7D 



+- 



7E 

7F 



+- 



+- 



+- 



8B 



8C 



8D 



8F 



90 



91 



92 



94 



95 



96 



97 



98 



99 



9A 



OPERAND 
OPERAND 



+- 



+- 



OPERAND 
OPERAND 



+- 



OPERAND 
OPERAND 
OPERAND 



+- 



+- 



+- 



+- 



OPERAND 



OPERAND 
OPERAND 



4- 



+- 



+- 



+- 



OPERAND 



+■ 



+- 



OPERAND 1 



4- 



4 



4 



+— 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 



OPERAND 



OPERAND 2 



OPERAND 



OPERAND 



+- 



+- 



OPERAND 



+- 



OPERAND 



4- 



OPERAND 2 



4- 



OPERAND 



OPERAND 



4- 



OPERAND 



4- 



OPERAND 



OPERAND 



OPERAND 



384 



1-- 



^ 

p 

l. 

GO OUT OF BLOCK 
^ 

R 

I- 

GO TO 

GOLN 



C 



T T 

9E 



A 
CALL 



P. 
RETURN 



BUYT 
EUYX 



HSELL 



SELL 



BUY 



f 



BUYS 



PROC 



BEGIN 



ITERATIVE DO 



DO 



IF 



SN2 



NOSNAP 



AO 



Al 



A2 



A3 



A4 



A5 



A6 



A 7 



A8 



A9 



AA 



■+ 



AB 



AC 



AD 



AE 



AF 



B3 



B5 



B7 



• + 



B9 



■+ 



BB 



BC 



BE 



FORMAT 



BF 



TO' 



BY' 



WHILE' 



■+-— 
I CO 

-I— ■ 
j C2 



WRITE 



CU 

4— - 

1 C7 



READ 
CV 



I C9 
I CC 



+- 



+■ 



■+- 



4- 



+- 



4- 



■+- 



OPERAND 1 



■+ 



■+■ 



■+■ 



■ + 



■ + 



OPERAND 



OPERAND 



■+- 



OPERAND 1 



■+- 



■ + 



4- 



OPERAND 1 



4 



4 



4 



4 



OPERAND 1 



4 



OPERAND 



OPERAND 



^ I 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 



OPERAND 



OPERAND 



4- 



OPERAND 



OPERAND 



OPERAND 



4- 



OPERAND 2 



OPERAND 



OPERAND 



4- 



OPERAND 



OPERAND 



OPERAND 



OPERAND 2 



OPERAND 2 



r T T-- T 1 

STATEMENT NUMBER j DO | OPERAND 1| OPERAND 2| 



II- 



CLNl 



STATEMENT LABEL 
CLN2 



COMPILER NUMBER 
GET 



COMPILER LABEL 
PUT 



E" 
UNLOCK 



F' 
REWRITE 



OPEN 
C 



CLOSE 



CALL' 



P' 



END PROG 
END BLOCK 



END PROG 2 



END I/O 
PROC 



BEGIN' 
ITERATIVE DO' 



DO' 



IF' OR ON 



PREFMT 



FORMAT ' 



Dl 



D2 



+- 



D3 



+- 



D4 



D5 



D6 



D7 



D8 



D9 



DA 



DE 



DD 



DE 



DF 



El 



E4 



EB 



ED 



EE 



Fl 



I 1 



F3 



F5 



F7 



F9 



FB 



FD 



FF 



+- 



OPERAND 1 



+- 



+- 



4- 



+- 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



OPERAND 



4- 



OPERAND 



+- 



OPERAND 



4- 



OPERAND 
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5. TEXT CODE BYTES IN PSEUDO-CODE 



r T T T T T T T T T T T T T 

IDCVO lOSMl IBGPE I BLBS I LCR I LCDR I LCER I LM IBCTA'ILH I LA I CLI I CLC I TR 



E F 
■T T 



4- 



+■ 



+--+ 



DCVl 



0SM2 



EOB 



BLBS' 



BCR 



SPM 



CLR 



SLA 



BC 



CH 



CL 



MVI 



MVC 



+■ 



+- 



TRT 
PACK 



+--+ 



DCV2 



ALLOC 



PCC 



BUYS 



HER 



LTR 



ALR 



+- 



4- 



SLDA 
+ + 



DCF 



AH 



AL 



NI 



MVN 



+—+ 



DCV3 



DCA3 



CHSM 



PINS 



HDR 



LTER 



SLR 



SLDL 



BCTA 



SH 



SL 



01 



MVO 



+- 



UNPK 
IGNORE 



+--+ 



DCVU 



DCA4 



ADR 



RWA 



BCTR 



LTDR 



SLL 



BCT 



MH 



STC 



+■ 



SSM 
TM 



MVZ 



+- 



+— + 



DCV8 



FREE 



SN3 



APRM 



NR 



LNR 



LPR 



SRA 



STH 



ST 



NC 



+- 



+ - 



+- 



+— + 



|6 



DROP 



BUY 



BCIN 



USNG 



OR 



LNER 



LPER 



5RDA 



EX 



+- 



+■ 



XI 

LA' 



OC 



CONV 

CONV ' 
USSL 



+--+ 



EQU 



SELL 



STOP 



EDIT 



XR 



LNDR 



LPDR 



SRDL 



STD 



STE 



XC 



4- 



4- 



+■ 



+— I 



PROC 



PROC 



BGNP 



FMT 
LST 



LR 



LDR 



LER 



SRL 



LD 



LE 



DCF2 



ZAP 



4- 



+- 



+- 



+-- + 



BEGIN 



BEGIN' 



BGNP' 



FMT 



CR 



CDR 



CER 



STM 



CD 



CE 



BCT' 



CP 



4- 



+■ 



4 



DRPL 
CNVA 



+-- + 



|A 



ID 



PASS 



ADV 



DROB' 



FMT' 



AR 



ADR 



AER 



BXH 



AD 



AE 



AP 



+■ 



4- 



+--+ 



EOP 



PLBS 



PLBS' 



EDIT' 



SR 



SDR 



SER 



BXLE 



SD 



SE 



SP 



4- 



4 



SINL 
CNVCl 



+— + 



EOP 2 



PCBS 



PSLD 



ERROR 



MR 



MDR 



MER 



SLl 



MD 



ME 



SN2 



MP 



4- 



IGN2 



+— + 



IPRM 



IPRM' 



ABS 



PFMT 



DR 



DDR 



DER 



SN 



DD 



DE 



4 



0SM3 
EQU' 
PSW 



DP 



CNVC2 
CNVC3 
CNVC4 



IGN4 



+--+ 



EPRM 



EPRM' 



ABS' 



SVC 



AWR 



AUR 



CLI 



IC 



AW 



AU 



ED 



4 



4 



IGN5 



+— + 



F IITDO IITDO' I ALIGN 
L 1 X X 



BALR 



SWR |SUR |CN |BAL 
X X X 



CVB 



CVD 



EDMK 



IGN8 



6. TEXT FORMATS IN PSEUDO-CODE 



Pseudo-code Des ig n 



Pseudo-code is essentially a symbolic 
representation of machine code, designed in 
such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. 



A unit consists of a one-byte operation 
code followed by, normally, a two or four- 
byte field and on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 



By having most units either three or 
five bytes long, the scanning of pseudo- 
code is a fairly straightforward process. 



The format of the 
units is as follows: 



various pseudo-code 



Three- byte unitj_ this consists of a 

one-byte operation code followed by a 
two-byte literal offset, and it appears 
immediately after the symbolic 
representation of the instruction to 
which if refers. 



Five -byte unit; there are four basic 

five-byte units which have the follow- 
ing formats. 



Bytes 



I OP I 

I I 
I CODE I 
L X. 



Rl 



2 
R2 
DICT REF 



386 



Bytes 

12 2 

J. y y ^ 

I OP I I I 

I I R3 I OFFSET | 
I CODE I I I 

L ± X J 

Bytes 

12 2 
P . ^ — ^ ^ 

I OP I I I 

I I Rl I R2 I 
I CODE I I I 

L X X J 

r T T 1 

I OP I 1 I R2 I 
I I HEX I I 

I CODE I I DICT RFF j 
L , X X J 



L Rl, JOE+24 
Bytes 

12 2 

r T T 1 

I L j Rl I DR(JOE) I 
L X X J 

r T 1 

I OS^il I 24 I 

L X J 

L R1,J0E(R3) 
Bytes 

12 2 

r T T 1 

I L I Rl I DR(JOE) I 

L X X J 

^ ^ ^ 

I 0SM2 I R3 I 

L X J 



Using these units with, if necessary, a 
three-byte unit, it is possible to symboli- 
cally represent any possible RR, RX, RS or 
SI instruction. 



Varia ble lengt h unltj^ the format of 

this is: 



Bytes 



L Rl,JOE+24(R3) 

12 2 

P ^ ^ ^ 

I L I Rl I DR(JOE) I 
t X X . J 

J. ^ ^ ^ 

I 0SK3 I 24 I R3 | 
L X X J 



Bytes 



r T- 

I OP I 

I I 
I CODE I 
L X. 



FLAG 



VARIABLE 



With a specially designed variable field 
described by a two-byte flag, it is possi- 
ble to represent any SS instruction with 
this unit. 

The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 



Alternatively, JOE might be a base reg- 
ister in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 



Bytes 



L R1,0{R3,R2) 

12 2 

r T T 1 

I L I 1 Rl I R2 I 
L X X J 

r T 1 

I 0S^i2 I R3 I 

L X J 



RX Instructions 



The following examples illustrate the 
basic forms of an RX instruction and the 
way in which they are represented in 
pseudo-code. 



When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an ECU value. 



Bytes 



L R1,J0E 



Rl 



DR(JOE) 



Bytes 

1 



BC 



I 01 

.X 



HEX 



■T 1 

I EQU VALUE! 
.X J 
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Bytes 

11 12 

r T T T ■ 1 

I 111 I R2 I 

I BC I I HEX I- ^ 

I I I I DICT REF| 
L X JL X J 



RS In structions 

The following examples illustrate the 
basic forms of an RS instruction and the 
way in which they are represented in 
pseudo-code: 

BXH R1,R2, ALPHA 
Bytes 

12 2 

r T T 1 

I BXH I Rl I DR (ALPHA) | 
L X X J 

r T 1 

I 0SM2 I R2 I 

L X J 

BXH Rl,R2,ALPHA+24 
Bytes 

12 2 

r T T T 

I BXH I Rl I DR (ALPHA) | 

L X X J 

r T T 1 

I 0SM3 I 24 I R2 j 
L X X J 

Alternatively, ALPHA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register as in the RX instruction. 



SLA Rl,6 



Bytes 



SI Instructions 



The following examples illustrate the 

basic forms of an SI instruction and the 

way in which they are represented in 
pseudo-code: 

CLI EETA,X'fF' 
Bytes 

12 2 

r T T — 1 

I CLI I FF I DR(BETA) | 

L X X J 

CLI EETA+4,X'FF' 
Bytes 

12 2 

r T T 1 

I CLI jo FF I DR(BETA) j 

L X X J 

r T 1 

I 0S1/:1 I U I 

L X J 

Alternatively, BETA might be a base 
register in which case the dictionary ref- 
erence would be replaced by a symbolic 
register. 



SLA 



Rl 



SS Instructions 



Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is neces- 
sary to represent an SS instruction with a 
variable length field, the length of which 
is specified in the second of two flag 
bytes immediately following the operation 
code. 

This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the items in the 
guise of pseudo-code. 



RR Instructions 



The following example illustrates the 
form of an RR instruction and the way in 
which it is represented in pseudo-code. 



AR R1,R2 



Bytes 



AR 



Rl 



R2 



Variable_Len2th_Item_FLAG 



The first bit of the FLAG indicates 
whether or not the unit represents a 
machine instruction. In the former case, 
the format of the instruction is: 

Bytes 

11 1 12222 

r T T T T T T T 1 

|0P I I I I I I i I 

I I FLAG I LENGTH I Fl | F2 j F3 j FU | F5 j 

ICODEI I I I I I i I 
L X X X X X X X J 
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The format of the FLAG is: 
Bit Zero One 

1 Always zero 

2 F2=dict. ref. F2=syni reg. 

3 F3=dict. ref. F3=syrri reg. 

4 F4 not present F4 present 

5 F5 not present F5 present 
6-8 Not used 



The Fl field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The F4 
and F5 fields contain literal offsets. 



Compiler Function ( i it__l=12 

\ 
In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 

^ ^ y ^ ^ ^ 

I CONV I FLAG I LENGTH j Fl | F2 j 
L X J. X X J 

The format of the FLAG is: 
li^s Bot h Zero Both^ One 

1 Always one 

2 and 3 Fl=dict. ref. F1=TMPD operand 

4 and 5 F2=dict, ref. F2=TiyiPD operand 

6-8 Not used 

The FLAG in the IGNORE item does not 
contain any information. 

The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 

MVC ALPHA ( 7 ) , BETA 
Bytes 

1111 2 

I MVC I X' 00 'I 8 I 6 I BR (ALPHA) 1 
L X X X . X J 

2 

r T 

|DR(BETA) I 
L J 



ZAP ALPHA+3(ia), BETA (6) 

Bytes 

1111 2 

r T T T T 1 

I ZAP jX' 10 'I 10 I 13 5 |DR(ALPHA)i 
L X X X X J 

2 2 

r T 1 

I DR (BETA) I 3 I 
L_^ X J 

MVC ALPHA(6), BEIA+ll 
Bytes 

1111 2 

|MVC|X'08'| 10 I 5 |DR(ALPHA)| 
L X X X X J 

2 2 

P ^ ^ 

JDR(BETA)| 11 I 
L X J 

AP ALPHA+3(14) ,EETA+11(6) 
Bytes 

1111 2 

r T T T T 1 

|AP JX'IS'I 12 |13 5 |DR(ALPHA)| 
L X X X X J 

2 2 2 

I DR (BETA) I 3 I 11 1 
L X X J 



Alternatively, ALPHA and/cr BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 



MVO 



ALPHA(14), 11(6, Rl) 



Bytes 



|MVO|X'28'| 10 I 13 5 |DR (ALPHA)] 
L X X X X J 



Rl 



■T 1 

I 111 
-X J 



Pseudo-code Format between lEMRA and lEMRF 



Fields that may hold a dictionary ref- 
erence or register number have, at this 
time, the possibility of holding a literal 
offset. The presence of an offset is 
indicated by the first bit of the field 
being set to one, and earlier flags being 
set to 'register.' 
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7. TEXT FORMATS IN ABSOLUTE CODE 



RS Instructions 



Where a standard 
isters is to be used f 
e.g. in the construct 
during the generat 
instructions, it is 
instructions with re 
code, instead of th 
two-byte symbolic reg 
Formats in Pseudo-Cod 



set of assigned reg- 
or a section of code, 
ion of prologues, or 
ion of addressing 

possible to generate 
gisters in absolute 
e normal pseudo-code 
isters. (See "Text 
e" in this Appendix.) 



Sections of absolute code are preceded 
by ABS markers and followed by ABS' mark- 
ers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix) , but the instruction formats dif- 
fer, as shown in the following examples: 



Shift Instructions 
Bytes 



r T T 1 

I OP CODE I Rl I OFFSET | 
L 1 X J 



Other Instructions 

Bytes 

1 11 

P ^ ^ ^ 

I OP CODE I Rl R2 I B2 | 
L X X J 

2 12 

r T T 1 

I DICT RLFCE j 0SM2 | OFFSET | 
L X X J 



RR Instructions 



SI Instructions 



Bytes 



r —r 1 

I OP CODE I Rl R2 I 
L X J 



RX Instructions 



Bytes 



1 112 

J. ^ y y , 

I OP CODE I MASK | Bl | DICT REFCE | 
L X X X J 

1 2 

r T 1 

I 0SM2 I OFFSET j 

L X J 



Bytes 



1 11 

r T T 1 

I OP CODE I Rl X2 I B2 j 
L X X J 

2 12 

r T T 1 

I DICT REFCE j 0SM2 j OFFSET | 
L X X J 



Note that the 0SM1/0SM2 markers and their 
following offsets are all optional; note 
also that the 0SM2 byte does not have a 
register following it, as in normal pseudo- 
code, but a literal offset. 

The first bit (bit 0) of the byte 
containing the base is used as a flag. If 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference. 



SS Instructions 



After Phases RA and RF all instructions 
in the text will be in absolute code. 



Bytes 



1 11 2 

r T T T 1 

I OP CODE I LENGTH j Bl j DICT REFCE j 
L X X X J 

12 12 

r T T T 1 

I B2 I DICT REFCE | OSMl | OFFSET | 
L X X X J 

1 2 

r T 1 

I 0SM2 I OFFSET j 
L X J 



8_s. SECOND JFILE_STATEMENTSx_AND_THE_j;gRMATS 

OF COMPILER FUNCTIONS AND PSEUDO-VARIABLES" 



Second File Statements 



Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
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with array bounds, 
DEFINING, and INITIAL val 
tors are converted int 
function references. The 
a special meaning. They 
the dictionary, and the 
erences are to a region 
cations area. The pse 
phase dealing with each p 
generates in-line code in 
tion reference. 



string lengths, 
ue iteration fac- 
o assignments to 
se functions have 
are not entered in 
ir dictionary ref- 

in the coimmuni- 
udo-code physical 
articular function 
stead of a func- 



All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 

The statements generated have the fol- 
lowing overall format: 

Byte Number Description 

1 Code byte SN2 

2-3 Dictionary reference 

4 Options byte 

5 Statement type markers 

6 onwards Statement body 

The dictionary reference is the ref- 
erence of a second file dictionary entry. 
This is described in Appendix C. The 
options byte is that for the options opera- 
tive in a prologue, i.e. no interruptions 
are accepted. 



A rray Bounds 

The format of the second file statement 
for array bounds is as follows: 

Byte Number Description 

1 Assignment statement marker 

2 code Byte X'OO' 
3-U ADV code X'0002' 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'OO' 

8-9 Dictionary reference of 
array 

10 Triple operator code byte 
X'44' 



11 
12 
13 

14 

15 
16 
17, 



Code byte X'5E' 

Code byte X'OO' 

Code byte X'OO' for lower 
bound, X'Ol' for higher 
bound 

Number of the dimension 
whose bound is referenced 

Right parenthesis 

Triple operator code X'46' 

Expression for bounds 

Statement terminating semi- 
colon 



Multiplier Function 



Multiplier function statements are used 
to denote copying of a section of one dope 
vector into another. The format is: 



Byte Number 
1 
2 

3-4 
5 
6 
7 

8-9 
10 

11 

12-13 

14 

15 
16 

17-18 
19 

20 
21 



5®scription 

Assignment statement marker 

Code byte X'OO' 

MTF code bytes X'OOIO' 

Compiler call marker 

Left parenthesis 

code byte X'OO' 

Dictionary reference 1 

Triple operator code byte 
X'44' 

Code byte X'OO' 

Dictionary reference 2 

Triple operator code byte 
X'44' 

Code byte X'5E' 

Code byte X'OO' 

Offset 1 

Triple operator code byte 
X'44' 

Code byte X'5E' 

Code byte X'OO" 
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22-23 


Offset 2 


24 


Triple operator 




X'U4' 


25 


Code byte X'5E' 


26 


Code byte X'OO* 


27-28 


Length 


29 


Right parenthesis 


30 


Statement terinin 



colon 

This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2, to the dope vector of the item 
at dictionary reference 1, starting at an 
offset of offset 1. 



item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 



INITIA L value statements 

INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 

By te N umber Description 

1 Assignment statement marker 



String Length statement 

The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The format is: 

Byt e Number Desc rip tion 

1 Assignment statement marker 

2 Code byte X'OO' 
3-4 SDV code X'0004' 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'OO" 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X'46' 

12... Expression 

Statement termination semi- 
colon 



The dictionary reference 
item whose dope vector is 
ized. If the expression is 
length of a string being 
internal function, then the 
erence is that of the entry 
ing to the label. In Fi 
erence is to B or C dependi 
the statement appeared in a 
statement, or an ENTRY att 



is that of the 
being initial- 
defining the 
returned by an 
dictionary ref- 
type 2 belong- 
gure 6 the ref- 
ng on whether 
PROCEDURE/ENTRY 
ribute. If the 



2 Code byte X'OO' 

3-4 IDV code 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'OO' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code X'46' 

12... Expression 

Statement terminating semi- 
colon 

The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statemients of this 
type, and for this variable, that have been 
generated before this one. 



I Second_File Statements__f gr_BASED and OFFSET 



I A statement is generated for a variable 
|which is declared BASED with its associated 
I pointer given, and for a variable which is 
I an OFFSET with its associated base given. 
|The format of the statement is similar to 
I that of the INITIAL value statement except: 
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^YJ^jS^NuiSt'er Description 

3-4 PEXP code (BASED) X'0016' or 
BVEXP code (OFFSET) X'0017' 

12 Expression (which must be a 
single dictionary reference 
of the associated pointer or 
base) 

The dictionary reference in bytes 8-9 is 
that of the BASED or OFFSET variable. 



S econd File Statements __f or JCEFINED 

Second file statements are generated 
when an expression is associated with 
DEFINED, but the expression does not con- 
tain any iSUBs. The format is: 

Byte Number Description 

1 Compiler assignment state- 
ment marker 

2 Code byte X'OO' 

3-4 ADF code; 

X'OOll' for base only 

X'0012' for subscripted base 
X'0013' for base with iSUB's 

5 Pseudo-variable marker 

6 Left parenthesis 
Base7and subscript list 

Right pareiithesis 

Statement terminating semicolon 



9. PSEUDO-CODE PHASE TEMPORARY RESULT 
DESCRIPTORS (TMPD)' 



Temporary Description Stack 



All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 



Byte 1 



Flag 1 describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary results 



Bytes 3-4 P,Q 



Bytes 5-6 BASE 



Byte 7-8 NDX 



Bytes 9-10 OFS 



Strings 
ways : 



scale, mode, 
etc. of the 
result. The 
this byte is i 
the similar by 
dictionary an 
used by the Li 
routines. 
(See "Data 
Appendix C. ) 



string type 
temporary 
format of 
dentical to 
te in the 
d the DED 
brary sub- 
routines. 
Byte" in 



describes the precision 
and scaling of arithmetic 
type results 

in one of the following 
forms: 

1. "Reg by value" reg- 
ister containing the 
result - no index or 
offset is allowed. 

2. "Reg by value" reg- 
ister containing the 
base address of the 
result stack 

3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 



in one of 
forms: 



the following 



1. Symbolic indexing reg- 
ister for EASE type 2 
and 4. 

2. The number of bytes 
required in the tem- 
porary core stack for 
BASE type 1 

which is a literal offset 
to be inserted in the 
base address. When used 
with EASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 



are described in the following 



Byte 2 



Code 2 describes 



the 



radix. 



If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 
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If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 

If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 

If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
statement for the second type. 



The 'top' of the stack is indicated by 
two pointers: PSTK and LSTK. PSTK points 
to the 'physical' top of the stack, which 
is the last item added. LSTK points to the 
'logical' top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is com- 
pletely removed from the 'physical' stack. 



T T 

Whether F7 
applicable 



FLAG 



F5 



+- 



F6 



Comments 



X'OO 

X'02' 

X'OU' 

X'05' 

X'20' 

X'41" 

X'49' 

X'80" 
X'CO" 

X'Cl' 

X'C5' 



Dictionary 

reference 

Dictionary 

reference 

Dictionary 

reference 

Dictionary 

reference 1 

Dictionary 

reference 

Symbolic 

register 

Symbolic 

register 

Register 

Workspace 

offset 

Workspace 

offset 

Workspace 

offset 



Dictionary 

reference 2 

Index 

register 

Dictionary 

reference 

Dictionary 

reference 



Dictionary 
reference 
Dictionary 
reference 



Yes 

No 

No 

No 

Yes 

Yes 

Yes 

No 
Yes 

Yes 

No 



STRUT2 output — must SELL dictionary ref. 

REPEAT function result. 

SUBSTR function result. 

Arithmetic subscript, or SDV for varying 

string subscript. 

Non-adjustable fixed string subscript, with 

DROP in STRUT2. 

Non-adjustable fixed string subscript, without 

DROP in STRUT2. 

Item in register -- F7 cannot exist. 

SDV for adjustable fixed string subscript. 
SUBSTR pseudo-variable result. 



Note s 1. Since F6 cannot be used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1. 
2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future applications. 

L . 

Figure 12. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 
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T empora ry Descriptions in Pseudo-Code 

Descriptions are passed between pseudo- 
code phases using two or three TMPD 
triples, v;ith the following formats: 

J. y — . — ^ y ^ ^ 

I TMPD I FLAG I F2 | F3 j F4 j 
^ +____X 1 J. ^ 

I TMPD I F5 I F6 j 
j. 1__ + ^ 

I TMPD I F7 I I 

L _X J. J 



1. FLAG describes 
F6, and F7. 



the use of fields F5, 



Bit 

Number Value Mean ing 

and 1 00 F5 contains a dictiona- 
ry reference 

11 F5 contains a temporary 
workspace offset 

01 F5 contains symbolic 
register with address 
of item 

10 F5 contains register 
with value of item 

2 F6 does not contain 

index register 
1 F6 contains index reg- 
ister 

3 Two TMPD triples are 

used 
1 Three TMPD triples are 
used, and F7 contains 
an offset 

4 Normal setting. String 

utility STRUT2 drops 
symbolic register in F5 
if used for input 
1 String utility STRUT2 
does not drop symbolic 
register 

5 Normal setting 

1 Result of an invocation 
of SUBSTR or REPEAT 

6 No SELL is required 

1 User of this descrip- 
tion must SELL dic- 
tionary reference in 
F5. Set by string 
utilities for adjusta- 
ble string result 

7 F6 does not contain a 

dictionary reference 
1 F6 contains a dictiona- 
ry reference 

CODE contains the data byte 
(describing type, radix, scale, mode, 
etc. ) 



b. 



c. 



String length for coded non- 
adjustable strings (maximum length 
for varying strings) 
Picture dictionary reference for 
data with picture 



F5 and F6 are at present used as shown 
in Figure 12. 



F7 can be used by adding X'lO' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 12) . 



10. LIBRARY CALLING SEQUENCES 



Internal library routines are used for 

such things as data type conversion, where 
there is no explicit reference to the 
routine in the PL/I source program. The 
arguments are handed to the routines in 
registers. In pseudo-code form, assigned 
registers are used, and special markers, 
IPRM and IPRM' are used to indicate the 
calling sequence to the register allocator 
phase. Internal library calls appear in 
pseudo-code as: 



IPRM 

L 1, 

L 2, 



(ARGUMENT 1) 
(ARGUMENT 2) 



L 15, IHE (ROUTINE NAME) 

BALRIU, 15 
IPRM' 



I The second byte of the IPRM item is used 
I as a flag byte. The settings are as 
I follows : 



Bit 



Bit 1 



Bit 2 



Must be zero 



END, or RETURN statement net 
in BEGIN block calling 
sequence 



END statement calling 
sequence 



F3 and F4 contain: 

a. Precision and scale factor 
coded arithmetic type data 



of 
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Exte rnal library routines 
pond to explicit references 
I/O statements in the PL/I 
The arguments to the routine 
workspace, and register 1 is 
to the first argument, 
form the calling sequence is 
EPRT'I marker and followed by 
er. Thus, the library c 
appears as: 



calls corres- 
to functions or 
source prograiri. 
s are placed in 

set to point 
For pseudo-code 

preceded by an 
an EPRM' mark- 
ailing sequence 



MVC 



WSP (N) , (ARGUMENT 1) 



EPRM 

LA 1, WSP 

L 15, IHE- 

BALR 14, 15 

EPRM' 



(ROUTINE NAME) 



The second byte of the EPRM is used as a 
flag byte. 

The setting is as follows: 

Bit A calling sequence to a PL/I 
procedure 



ADR 



ADV 



ALIGN 



between phases RA and 
RF) 

PS The two byte operand 
contains a register 
for use by final 
assembly for address- 
ing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

PS Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject cf the second 
file statement 

PS Indicates that 4 byte 
alignment is required 
in the code at this 
point 



11. DESCRIPTIONS OF TERMS AND ABBREVIATIONS 
USED IN TEXT DURING A COMPILATION 



ALLOCATE R,T,PS 



Replaces the 
ALLOCATE 



keyword 



The table in this section gives first, 
the phase in which the term is used; and 
third, a brief description of the meaning 
of the term or abbreviation. 



The phase in which the term or abbrevia- 
tion is used is given in the second column 
of the table. The key to the code used is: 



R After the Read-In Phase 
PS During the Pseudo-Code Phase 
T A triple or translator input 
code byte 



Term or 



Used In 



Abbreviation Phase Description 



ABS 



ABS' 



AD I 



R,T 



PS 



PS 



PS 



Character string for- 
mat item 

Indicates the start 
of absolute code 
(Appendix D7) 

Indicates the end of 
absolute code 



APRM 



ARCO 



PS 



1,Pi 



I AREA R 

ARGUMENT F^ARK R 



ARRAY CROSS 
SECTION 



ASSIGN 



R,T 



R,T 



ASSIGN BYNAME R 



ATTRIBUTES R,T 



Addressing 
instruction 



(used 



Indicates the library 
calling sequence for 
VDA or controlled 
storage 

Provides space to 
allow insertion of 
argument conversion 
triple 

Replaces keyword AREA 

Marker used by phases 
GK and GP to indicate 
he start of a func- 
tion argum.ent 

Replaces the PL/I '*' 
used to specify an 
array cross section 

Marker which precedes 
an assignment state- 
ment 

Precedes an assign- 
ment statem.ent with 
the BY NAME option 

Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 
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AUTOMATIC R 



BEGIN' 



BGPE 



BGNP 



BGNP ' 



B,T 



BJVCKWARDS R 



BASED 



T,PS 



PS 



PS 



PS 



BIT ATTRIBUTE R 



BIT CONST R 



BINARY 



Replaces the keyword 
AUTOMATIC 



BUYB 



Bit string 
iteir. 



format 



Replaces ke^yword 
BACKWARDS BEGIN 



Replaces 
BASED 



keyword 



Triple which ternd- 
nates the BEGIN block 
triples 

Indicates the end of 
the complete prologue 
for a begin block 

Indicates the start 
of code for a BEGIN 
block with no prolo- 
gue 

Indicates the end of 
code for a begin 
block with no prolo- 
gue 

Replaces the keyword 

BIT 

Marker preceding a 
BIT string constant 

Replaces the keyword 

BINARY 



BUY CHAMELEON T 



BUYS 



T,PS 



BY 



BY' 



BY NAME 



R,T 



R,T 



Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argunient to 
a generic scalar 
built in function 

Marker which indi- 
cates that workspace 
is required for a 
terrporary variable of 
chameleon data type 
i.e. the data type 
is taken from the 
expression assigned 
to the variable 

Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 



Replaces 
by' 



the keyword 



Triple which indi- 
cates the end of a BY 
expression 



Replaces the 

BY ' NAME 



keyword 



Complex decimal for- 
mat item 



BLBS 



PS Indicates the start 
of the prologue for a 
BEGIN block 



C 



Triple which indi- 
cates the end of a C 
format item 



BLBS ' 



BUFFERED R 



Indicates the end of 
the prologue for a 
BEGIN block 

Replaces keyword BUF- 
FERED 



CALL 
CALL' 



R,T CALL Statement marker 

T Triple internal to 
phase lA which miarks 
the end of a CALL 
statement 



BUILTIN 



Replaces the keyword 
BUILTIN 



I CELL 



Replaces the keyword 
CELL 



BUY 



T,PS 



BUY T 

ASSIGNMENT 



Code byte or triple 
which indicates that 
a temiporary variable 
is required 

Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 



CHAR R 

ATTRIBUTE 

CHAR CONSTANT R 



CHECK 



CHSM 



PS 



Replaces the keyword 
CHARACTER 

Marker preceding a 
character string con- 
stant 



Replaces the 
CHECK 



keyword 



A special offset 
marker. Used only in 
absolute code to 
indicate that the 
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offset may 
changing 



require 



CL 

CLNl 

CLN2 

CLOSE 
CN 



R,T,PS Compiler label marker 

T Compiler label number 
triple, referred to 
once only in the cur- 
rent statement 

T Compiler label number 
triple, referred to 
at any point 



R,T 



R,T,PS 



CNVCl, — 4 PS 



COL R,T 



COMPLEX 



COMPILER 
ASSIGN 

COMPILER 
FUNCTION 



COMPILER T 
FUNCTION' 



COMPILER T 
FUNCTION CALL 



COMPILER T 
FUNCTION CALL' 



COMPILER T 
FUNCTION COMMA 



Replaces the keyword 
CLOSE 

Compiler statement 
number. Can precede 
compiler inserted 
statements 

Convert compiler 
functions 

l=Drop all registers 
2=Drop target reg- 
ister 

3=Drop source reg- 
ister 

4=Do not drop reg- 
ister 

Replaces the keyword 
COLUMN 

Replaces the keyword 
COMPLEX 

Code byte or triple 
indicating assignment 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function argument 
list 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function call argu- 
ment list 

Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo- Variable 



COMPILER T 
PSEUDO-VARIABLE ' 



COMPILER T 
PSEUDO-VARIABLE 



CONDITION 



CONTROLLED 



CONTROL R,T 
VARIABLE 



CONVERSION R 



COPY R,T 



CONTROL 
VARIABLE' 



DATA R,T 

DATA' T 

I DATA LIST DO R 



DCF2 



DELAY 



DELETE 



PS 



DECIMAL 



DECLARE 



DEFINED 



DEFINED T 
SUBSCRIPT 



R,T 



R,T 



Triple indicating the 
end of a compiler 
pseudo- variable 
argument list 

Code byte or triple 
used to indicate the 
start of a compiler 
pseudo- variable 
argument list 

Replaces the keyword 
CONDITION 

Replaces the keyword 
CONTROLLED 

Marker which indi- 
cates the control 
variable of a DO loop 

Replaces the keyword 
CONVERSION 

Replaces the keyword 
COPY 

Triple which indi- 
cates the end of a 
control variable 
expression 

Replaces the keyword 
DATA 

Triple indicating the 
end of a data direct- 
ed I/O list 

Replaces the keyword 
DO in an iterative 
clause in a data list 

Causes output of 
'ERROR STOP' and the 
four bytes following 
in the pseudo-code 

item 

Replaces the keyword 
DECIMAL 

Replaces the keyword 
DECLARE 

Replaces the keyword 

DEFINED 

Marker which precedes 
the parenthesized 
iSUB subscript list 
of a defined array 

Replaces the keyword 
DELAY 

Replaces the keyword 
DELETE 
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DICTIONARY T 
REFERENCE 



Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 



END BLOCK 



R,T, 



BEGIN 
block 



or PROCEDURE 



Indicates the end 
a text block 



of 



DIRECT 



DISPLAY 



DO 



DO EQUALS R,T 



DROB 



PS 



DROP 



DROP 



PS 



DRPL 



PS 



EDIT 



EDIT' 



EIO 



ELSE 



END 



Replaces the keyword 
DIRECT 



Replaces the 

DISPLAY 



keyword 



R,T Replaces the keyword 
DO, in a non- 
iterative DO group 



Marker which replaces 
the PL/I'=' in the 
iterative DO 
statement (DO 1= ) 

Indicates to the reg- 
ister allocation 
phases that a base 
register used for 
addressing a con- 
trolled variable 
should be dropped 

Triple used in optim- 
ization indicating 
the drop of an index 
register 

Indicates that a sym- 
bolic or assigned 
register in the oper- 
and field of the 
instruction is no 
longer required 

Indicates the end of 
the use of a list of 
symbolic registers 
which have appeared 
in cin USSL item 



R,T Floating decimal for- 
mat item 

R,T Replaces the keyword 
EDIT 

T Triple indicating the 
end of an edit 
directed I/O list 

T Code byte or triple 
which indicates the 
end of an I/O state- 
ment, 

R,T Replaces the keyword 
ELSE 

R,T Replaces the END key- 
word at the end of a 



END DC R,T Replaces the END key- 
word at the end of a 
non-iterative DO 
group 

ENDFILE R Replaces the keyword 

ENDFILE 

END ITDO R,T Replaces the END key- 
word at the end of an 
iterative DO loop 



END LIST MARK R 



END PROG 



Marker used by phases 
GK and GF to indicate 
the end of a function 
argument list 



R,T,PS Marks the end of pro- 
gram 



END PR0GRAM2 T,PS 



ENTRY 



EPRM 



PS 



EPRM' 



EQU 



PS 



PS 



EQU' 



ERROR 



ERROR 



Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 



Replaces the 
ENTRY 



keyword 



Indicates the start 



of an 
library- 
sequence. 
DlOO 



external 

calling 

(Appendix 



Indicates the end of 
an external library 
calling sequence 

Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 
lowing pseudo-code 
item, 

As for EQU, but indi- 
cates that control 
may enter from a dif- 
ferent statement. 

Replaces the keyword 
ERROR 

Code byte or triple 
which marks the posi- 
tion of an erroneous 
source statement 
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ERROR 



EVENT 



EXIT 



EXTERNAL 



PS 



R,T 



EXCLUSIVE R 



R,T 



which has ceen delet- 
ed 

Indicates the pre- 
sence of a source 
program error 

Replaces the keyword 

EVENT 



Replaces 
EXCLUSIVE 



keyword 



Replaces the keyword 
EXIT 

Replaces the keyword 
EXTERNAL 



FLOAT BINARY R 
REAL 



FLOAT DECI^AL R 
IMAGINARY 



FLOAT DECI^;AL R 
REAL 



FORMAT 



FORMAT • 



R,T 



Marker which precedes 
a float binary real 
constant 

Marker which precedes 
a float decimal imag- 
inary constant 

Marker which precedes 
a float decimal real 
constant 

Replaces the keyword 
FORMAT 

Triple which marks 
the end of a remote 
formiat statement 



R,T 



Fixed decimal format 
item. 



FORMAT LIST R,T 



Precedes 
list 



format 



F COMMA 



Triple which indi- 
cates the end of an F 
formiat item 

Triple used to indi- 
cate the arguments of 
a function or pseudo 
variable 



FORMAT LIST' T 



FREE 



FROM 



R,T,PS 



R,T 



Triple indicating the 
end of a formiat list 

Replaces the keyword 
FREE 

Replaces the keyword 

FROM 



FILE R,T 



FILE' 



FINISH 



FIXED 



FIX BINARY 
IMAGINARY 



FIX BINARY 
REAL 



FIX DECIMAL 
IMAGINARY 



FIX DECIMAL R 
REAL 



FIXED 
OVERFLOVv 

FLOAT 



FLOAT BINARY R 
IMAGINARY 



Replaces the keyword 
FILE 

Triple indicating the 
end of a file list 

Replaces keyword FIN- 
ISH 

Replaces the keyword 

FIXED 

Marker which precedes 
a fixed binary imag- 
inary constant 

Marker which precedes 
a fixed binary real 
constant 

Marker which precedes 
a fixed decimal im.ag- 
inary constant 

Marker which precedes 
a fixed decimal real 
constant. 

Replaces keywords 
FIXED OVERFLOW 

Replaces the keyword 
FLOAT 

Marker which precedes 
a float binary imag- 
inary constant 



FUNCTION 



FUNCTION 



GENERIC 



GET 



GOOE 



GOLN 



GOTO 



I DENT 



IF 



R,T 
K,T 

T 

R,T 

R,T 

R,T 

T 



Code byte or triple 
indicating the start 
of a function argu- 
ment list 

Marker which precedes 
the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 

Replaces the keyword 

GENERIC 

Replaces the keyword 
GET 

GOTO out of block 
statement marker 

Indicates a branch to 
a label number 

GOTO in block state- 
ment marker 

Replaces the keyword 
IDENT 

Replaces the keyword 
IF 

Triple which termi- 
nates an IF expres- 
sion 
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IGN 2 . . 8 



IGNORE 



IGNORE 



R,T 



PS 



IN 



INITIAL 



R/T 



INITIAL LABEL R 



INITVAR 



INPUT 



INTEGER 



INTERNAL R 



INTO 



IPRM 



ITDO 



ITDO' 



JMP 



R,T 



PS 



Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
final digit indicates 
length to be ignored. 



Replaces the 
IGNORE 



keyword 



KEYED 


R 


Replaces keyword 
KEYED 


KEYFROM 


R,T 


Replaces the keyword 

KEYFROM 


KEYTO 


R,T 


Replaces the keyword 
KEYTO 



Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 

Replaces the keyword 
IN 

Replaces the keyword 
INITIAL 

Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
statements 

Replaces the keywo^pd 
INITIAL ( iteration 
factors) 



LABEL 



LEFT 



orri • 



Replaces 
IN Pin- 



keyword 



Marker which precedes 
an internal binary 
integer constant 

Replaces the keyword 



LIST 



LIST MARK 



LITERAL 
CONSTANT 



R,T,PS 



T,PS 



INTERNAL 


LOCATE 


R,T 


Replaces the keyword 






INTO 


MAIN 


R 


Indicates the end of 


MULTIPLE 


R,T 


an internal library 


ASSIGN 




calling sequence 






Replaces the keyword 


NAME 


R 


DO in an iterative DO 






loop 







KEY 



R,T 



Triple which termi- NDX 
nates an iterative DO 
expression 

Triple indicate the 

presence of pseudo- NEW PAGE 

code. The number of 

bytes of pseudo-code 

is specified in the NOCHECK 

first operand 

Replaces the keyword NO SNAP 
KEY 



Replaces the keyword 
LABEL 

Triple indicating a 
temporary result for 
a pseudo-variable 



LIKE 


R 


Replaces 
LIKE 


the 


keyword 


LINE 


R,T 


Replaces 
LINE 


the 


keyword 


LINESIZE 


R,T 


Replaces 
LINESIZE 


the 


keyword 


LIST 


R,T 


Replaces 


the 


keyword 



LIST 

T Triple indicating the 
end of a list 
directed I/O list 

T Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 

R,T Indicates that the 

following two bytes 
contain a fixed 
binary constant 

Replaces the keyword 
LOCATE 

Replaces keyword MAIN 



Marker indicating 
multiple assignment 
(Replaces PL/I' , • ) 

Replaces the keyword 
NAME in the context 
of ON NAME 

Triple indicating 
indexing during 
optimization of DO 
loops 

Replaces the keyword 
NEW PAGE 

Replaces the keyword 
NOCHECK 



R,T Replaces the keyword 
NOSNAF 
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NOSNAP' T 

NULL R,T 

NULL-FUNCTION T 



OFFSET 



OPEN 



OFS 



ON 



OPTIONS 



ON RECORD 



OSMl 



0SM2 



0SM3 



R,T 



R,T 



PS 



PS 



PS 



Triple which indi- 
cates the end of a 
NOSNAP list 



Null statement marker 

Enables TMPD's to be 
passed in text by 
phases LB and LG 
before the evaluation 
phase LS 

Replaces the keyword 
OFFSET 

Replaces the keyword 
OPEN 

Triple indicating 
offset used in optimi- 
ization of DO loops 

Replaces the keyword 
ON 

Replaces the keyword 
OPTIONS 

Replaces the keyword 
RECORD in the context 
ON RECORD 

Indicates that the 
two byte operand 
field contains an 
index register 

Indicates that the 
two byte operand 
field contains a let- 
eral offset 

Indicates the pre- 
sence of a literal 
offset and an index 
register 



PAGE 


R,T 


PAGESIZE 


R,T 


PASS 


PS 


PCBS 


PS 



cates the end of a P 
format item 

Picture format item 

Replaces the keyword 
PAGESIZE 

POINTER Assignm^ent 

Indicates the end of 



PCC 



Pi'^MT 
PICTURE 

PINS 

PLBS 



PLBS" 



POINTER 



PRECISICNl 



PRECISICN2 



PRINT 



OUTPUT 


R 




Replaces keyword OUT- 
PUT 


PRIORITY 


OVERFLOW 


R 




Replaces keyword 
OVERFLOW 


PSEUDO- 
VARIABLE 


P 


AR, 


T 


Picture format item 




P' 


T 




Triple which indi- 


PSEUDO- 



VARIABLE 



PSEUDO- 
VARIABLE' 



PS 



PS 
K 

PS 

PS 



PS 



R/f 



the com.plete prologue 
for a procedure block 

Follows a PROC or 
BEGIN marker. Used 
to carry the prefix 
change byte for tne 
block. 

PICTURE format 

Replaces the keyword 
PICTURE 

Indicates the prclo- 
gue insertion point 

Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 

Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry j-oints 

Replaceij the keyword 
POINTER 

Indicates a precision 
which has been writ- 
ten in the source 
program. as '(10)', 
which may be eitht^r 
fixed or float 

Indicates a precision 
which has oeen writ- 
ten in the source 
program as '(5,2)' 
which iniplies fixed 



Replaces 
PRINT 



keyword 



PSLD 



PS 



Replaces the keywcra 
PRIORITY 

Marker which precedes 
the parenthesized 
argument list to a 
pseudo- variable 

code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 

Triple indicating the 
end of a pseudo- 
variable argurrent 
list 

Indicates a pseudo- 
code instruction for 
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PROC 



PROC ' 



PUT 



READ 



REAL 



RPL 



RPL' 



RWA 



R,T PS 
T.PS 

R,T 
R,T 
R,T 
R 



PS 



use by the final 
assembly listing 
phase 



Replaces the keyword 
PROCEDURE 

Triple which termi- 
nates the procedure 
block triples 

Replaces the keyword 
PUT 



SECOND LEVEL 
MARKER 



Remote format 
ment marker 



state- 



Replaces the keyword 
READ 

Replaces the keyword 
REAL 



RECORD 


R 


Replaces the keyword 
RECORD 


RECURSIVE 


R 


Replaces the keyword 
RECURSIVE 


REENTRANT 


R 


Replaces the keyword 

REENTRANT 


REPLY 


R,T 


Replaces the keyword 
REPLY 


RETURN 


R,T 


Replaces statement 
marker 


REVERT 


R,T 


Replaces the keyword 
REVERT 


REWRITE 


R,T 


Replaces the keyword 



SECONDARY 



REWRITE 

code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 

Triple indicating the 
end of a format list 
replication factor 
expression 

Indication of an 
addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
work space which has 
been allocated 

Replaces keyword SEC- 
ONDARY 



SELL 

SET 

SETS 

SEQUENTIAL 

SIGNAL 

SIZE 

SKIP 

SL 

SN 

SN2 

SN3 



SNAP ' 



STATIC 



STERLING 
DECIMAL REAL 



STOP 



T,PS 



R,T 



R,T 



K,T 



A code byte which 
immediately precedes 
all code bytes 
appearing in the sec- 
ond level table 



Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 

Replaces the keyword 
SET 

Replaces the keyword 
SETS 

Replaces the keyword 
SEQUENTIAL 

Replaces the keyword 
SIGNAL 

Replaces the keyword 
SI ZFJ 

Replaces the keyword 
SKIP 



R,T,PS statement label mark- 
er. Precedes all 
labelled statements 

R,T,PS Statement number 
marker. Precedes all 
unlabelled statemients 

R,T,PS Marker which precedes 
a second file state- 
ment (See Appendix 
D.8) 

PS Indicates the start 
of a second file 
statement which is 
concerned with ini- 
tializing array, or 
structure, or string 
dope vectors. Simi- 
lar to SN2 (Appendix 
D.8) except that 
there is no associat- 
ed entry 

T Triple which indi- 
cates the end of a 
snap list 

R Replaces the keyword 
STATIC 

R Marker which precedes 
a sterling decimal 
constant 



R,T 



Replaces the keyword 
STOP 
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jTREAM 



STRING 



STRING' 



Replaces 

STREAM 



keyword TO' 



R,T Replaces the keyword 
STRING 

T Triple indicating the 
end of a string list 
used with list 
directed I/O 



TRANSMIT 



UNBUFFERED 



Triple which indi- 
cates the end of a TO 
expression 



Replaces the keyword 
TRANSMIT 

Replaces the keyword 

UNBUFFERED 



I STRINGRANGE R 



Replaces the keyword 

STRINGRANGE 



UNDEFINEDFILE R 



Replaces the keyword 
UNDEFINEDFILE 



SUB 



SUBSCRIPT R,T 



SUBSCRIPT' 



SUBSCRIPT- R 
RANGE 



SYSTEM 



SYSTEM' 



TMPD 



TO 



R,T 



R,T 



Replaces the keyword 
SUB used in iSUE 
DEFINING marker 
preceding a BIT 

Marker which precedes 
the parenthesized 
subscript list of an 
array 

Triple indicating the 
end of a subscript 
list 

Replaces keyword SUB- 
SCRIPTRANGE 

Replaces the keyword 

SYSTEM 

Triple which indi- 
cates the end of a 
system list 



UNDERFLOW R 



Replaces 
UNDERFLOW 



keyword 



TASK 


R,T 


Replaces 
TASK 


the 


keyword 


THEN 


R,T 


Replaces 
THEN 


the 


keyword 


TITLE 


R,T 


Replaces 

TITLE 


the 


keyword 



Triple indicating a 
temporary expression 
result 

Marker replacing TO 
in the iterative DO 
statement 



UNLOCK 



UPDATE 



USES 



USNG 



USSL 



VARYING 



WHILE 



WHILE' 



WRITE 



R,T 



PS 



PS 



R,T 



R,T 



X R,T 

ZERODIVIDE R 



Replaces the keyword 
UNLOCK 



Replaces 
UPDATE 



keyword 



Replaces the keyword 
USES 

Indicates the pre- 
sence of an assigned 
register 

Indicates a list of 
symbolic registers 
which need not be 
saved on branch and 
branch and link 
instructions 

Replaces the keyword 
VARYING 

Replaces the keyword 

WHILE 

Triple which indi- 
cates the end of a 
WHILE expression 

Replaces the keyword 
WRITE 

Spacing format item 

Replaces the keyword 
ZERODIVIDE 
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The (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print, buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/Output buffers 

Input/Output routines (BSAM) 

The main storage required by each pnase 
of the compiler need be contiguous only for 
each control section. 



storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the Dlock size is extracted. 

The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The sec- 
ond table details the storage allocation in 
each environment. 



Compiler Requirements and_ Dictionary/Text 

Block Relationship 



During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
are available in storage simultaneously. 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 



1 Environment | Dictionar 


y/Text 


1 Compi 


ler 


1 1 Block s 


ize 


[Requirements 


L J. 




I 




r t 




T 




1 A 1 IK 




1 UUK - 


56K 


1 E 1 2K 




1 56K - 


72K 


1 C 1 4K 




1 72K - 


132K 


1 D 1 8K 




1 132K - 


168K 


1 E 1 16K 




1 168K 





r ' T 

I DURING READ- IN PHASE 
|. 



AFTER READ-IN PHASE 



Storage Allocation 




ENVIRONI^l 
1 


•NT 






ENV; 


[RONMEt 


«^T 






A 


1 

E 1 


C 


D 


E 


A 


E 


C 


D 


E 


J 


1- - 


I-- A- 




L_ 

_ 


L _ 


k 


1- - - 


1- - - 


L . 


L 






T 


















OS Dynamic Storage 




1 
j 


















TIOT 


228 


228| 


228 


228 


228 


228 


228 


228 


228 


228 


SPIE 


32 


32) 


32 


32 


32 


32 


32 


32 


32 


32 


LOAD 


40 


40| 
j 


40 


40 


40 


40 


40 


40 


40 


40 


OS Temporary Storage 




1 
1 


















End of Volume 


800 


800| 


800 


800 


800 


800 


8 00 


800 


800 


800 


Data Management 


4894 


4894J 


4894 


4894 


4894 


4894 


4894 


4894 


4894 


4894 


Compiler Control 


12266 


12266J 


12266 


12266 


12266 


12266 


12266 


12266 


12266 


12266 


Phase Area 


16384 


16384] 


16384 


16384 


16384 


12288 


12288 


12288 


12288 


12288 


Text Area 


2048 


81921 


16384 


32768 


65536 


4096 


8192 


16384 


32768 


65536 


Dictionary Area 


2048 


81921 


16384 


32768 


65536 


4096 


8192 


16384 


32768 


6 553 6 


Scratch Storage 


4096 


4096| 


4096 


4096 


4096 


4096 


4096 


4096 


4096 


4096 


I/O Buffers 


1538 


15381 


1538 


1538 


1538 


1538 


1538 


1538 


1538 


1538 



j TOTALS 
L 



i 443 74 15666 2 I 73038 105 814 11713 40 1 44374 I 52 566 | 689 50 | 101718 | 1672 54 | 

.X J. J. J. J. X X X X X J 
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Initially, four text and four dictionary blocks, more main storage is allocated as 

blocks are allocated to the compiler (two blocks. This process continues until the 

each are allocated when only 44K bytes of spi ll point is reached (i.e., until all the 

storage are available to the compiler. main storage available to the compiler has 

This is then expanded to four of each at been used) . If still more main storage is 

the end of the read-in phase). If the text required, the spill file (SYSUTl) is 

and/or dictionary expands to 'fill these opened, and blocks are written out. 
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APPENDIX F: COMMUNICATIONS REGION 



The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in this 
Appendix. 

Note: The use of the communications region 
during compile-time processing is 
described in Appendix J. 



TRANSFER VECTORS 



Description 

Print a line 

Read a card 

Get scratch storage 

Get text block 

Release scratch storage 



Dump and go to error 
message routines 

Load and return to cal- 
ler 

Make dictionary entry. 
Absolute address 
returned 

Make dictionary entry. 
Dictionary reference 
returned 

Make error message entry 



Hex. 




Offset 


Name 


8 


ZUPL 


C 


ZURD 


10 


ZUGC 


14 


ZUTXTC 


18 


ZURC 


IC 




20 


ZABORT 


24 


ZLOADW 


28 


ZDICAB 



34 

38 

3C 
40 

44 
48 

4C 



2C 



30 



ZDICRF 



ZUERR 



68 

6C 

70 
74 
78 
80 



ZDRFAB Convert dictionary ref- 
erence to absolute 
address 

ZLOADa Load with overlay and 
return to caller 



REQEST Give a list of phase 
names required or not 
wanted for this compila- 
tion 

RELESE Release-; all named phases 

kLSCTL Release all named phases 
and pass to next phase 

ZDUMP Dump specified core and 
continue 

Convert absolute address 
to text reference 

Convert text reference 
to absolute address 

Find next block in chain 

Change text block status 

Convert absolute address 
to dictionary referenc€r 

Not aligned dictionary 
entry. Reference 
returned 

ZNALDE Not aligned dictionary 
entry. Absolute address 
returned 

ZLND Terminate job 

ZULF Write on load file 

ZUSP Write on punch 

ZUBW Write on backing store 

RLSCTLX Release all named phases 
and hand control to the 
next phase, after having 
loaded it with overlay 



50 


ZTXTRF 


54 


ZTXTAB 


58 


ZCHAIN 


5C 


Z ALTER 


60 


ZDABRF 


64 


ZNALRF 
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COMMyNICATigNS_REGION 

These tables give the following information for each location of the corrniuni- 
cations region: name of location; offset (i.e., relative address); use (i.e., 
stages of compilation during which the location is in use); and a description of 
the contents. Certain locations are used in one capacity during part of the 
compilation, and then re-used in a different capacity during another part of the 
compilation. In these cases, one location will have two table entries: details of 
alternative usage appear in the columns heeded Name^, Use^, etc. 
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• Table 1. CoiTimunications Region 
r 



T T" 

Name | Offset; (Dec.) j 
^ 1. 

SAVED I 
SAVEl I SAVED + U 
SAVE 2 lSAVED+8 ETC. 



Use 



Description 



SAVE 15 


SAVEO+6 


ZTV 


64 


ZTRANl 


68 


ZTRAN2 


ZTRANl+4 


ZNXTD 


76 


ZERRD 


80 


ZERRS 


ZERRD+4 


ZERRW 


ZERRD+8 


ZERRC 


ZERRD+12 


ZDNXT 


ZERRD+16 


ZSNXT 


ZDNXT+4 


Z'WNXT 


ZDNXT+8 


ZCNXT 


ZDNXT+12 


ZMYNAM 


112 


DICTP 


116 


ZCNCHR 


118 


ZPROCH 


120 


ZSTAT 


124 


PARI 


128 


PAR2 


PARI +4 ETC 



PARS 


PARl+28 


CORLFT 


160 


LKLSIAME 


164 


ZOBSAD 


172 


TERMSW 


176 


OFDNAiM 


178 


SPLNAM 


180 


ZOENUM 


182 


SCNOP 


184 


SCCNF 


185 


ZDROLF 


186 


AREA 


187 


ZM91 


188 


PERRSW 


189 


BERSW 


190 


lOERSW 


191 


ZPAGE 


192 


ZLINE 


194 


ZOPT 


196 


PARMLEN 


197 


MAXFON 


198 


ZDICTSP 


200 



ALL PHASES 
ALL PHASES 
ALL PHASES 



ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


All 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASKS 


ALL 


PHASES 


ALL 


PHASES 



ALL 


PHASES 


ALL 


PHASES 


PHASE 


VE 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 



Register save area 
Register save area 
Register save area 



Register save area 

Control phase base 

External to internal translate table 

Internal to external translate table 

Next available dictionary location 

First locations ot error chains 



Current ends o± error chains 



Name of last phase entered 



Source column containing control 

character 

Chain of created procedures 

Current statement number 

Parameter word 1 

Parameter word 2 



Parameter word 8 

Amount of core left for compilation 

Member name of module produced by 

compilation 

Address of overflow/* block 

Compilation terminating switch 



Name of phase in control when 

spill file is opened 

Overflow block number 

Phase directory scan switch 

On if in second half of compiler 

Overlay switch 

Code word for dummy routines 

(phase AD) 

(used for Kodel 91 systems) 

Print error switch 

♦process error byte 

I/O error switcn 

Number of lines in page 

Number of characters in a line 

Code word of loading of optirrizing 

phases 

Length of options field in * - process 

card 

Number of offset slots in a dictionary 

block 

Useful dictionary block size 



Appendix F: Con'munications Region 



409 



Table 1. Coirmunications Region (cont'd) 

Use 



1 1 Name 

1 L 1- 


Offset 

L 


I r T 


1 1 ZNXTOF 


20U 


1 1 FONOF 


208 


1 1 FSTDRF 


212 


1 ERCODE 


224 


1 MCSIZE 


228 


1 CCCODE 


232 


1 HDR 


236 


1 TLR 


240 


1 TRT 


244 


1 ARINT 


248 


1 BR2 


252 


1 STARTX 


256 


1 DICTSZ 


260 


1 TXTSZ 


264 


1 RDSIZE 


268 


1 INCOD 


272 


1 ARMASK 


273 


1 LOCK 


274 


1 ZNXTLC 


276 


1 1 ZSHIFT 


280 


1 1 ZMASK 


284 


1 1 ZMASKl 


ZMASK + 


1 1 ZSOR 


288 


1 1 ZMAG 


290 


1 1 ZCOMM 


304 



Description 



1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


j ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


j ALL 


PHASES 1 


1 ALL 


PHASES 1 


1 ALL 


PHASES 1 


j ALL 


PHASES 1 


1 ALL 


PHASES 1 



Offset of next dictionary entry 

Offset of offset slots in dictionary 

block 

Dictionary reference of last dictionary 

entry 

Error message codes 

M/CSIZE this run 

Control card requests 

Address of phase directory 

Timer last read 

Total run time 

Arithmetic interrupt 

Second base for control phase 

Start of text 

Dictionary block size 

Space available in text block 

SIZE of read area 

Interrupt code 

Arithmetic error mask 

Dictionary lock slot 

End of current text 

Number of bits in dictionary reference 

offset 

Mask to remove block numbers 

Mask to remove offset 

Input record source 

Input record margin 
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• Table 2. Coniinunications Region 



, ^ T T T T 


T 




Dec. 1 Use 






Use^ 




1 Name 


/^•P-Foo-t- L 


Description 


Name 2 




J 


Descriptions 


uirsen f ___.___.y_ — ______ — 1 

1 Start j End 


T 

Start 1 End 




1 1 „ 








X 







T T 












1 ZCALLC 


ZCOMM+ 0|Read in |BCD to 

1 JDict. Ref. 


Start of CALL 
chain 










1 ZLABTB 


+ 4 1 Read in | Initial 


Start of label 
chain 










1 ZATTID 


+ 8| 1 


Pointer to 
attribute 
tidy-up area 


ZPCOP 








1 ZALLCH 


+12 1 Read in | ALLOCATE + 
1 1 Attribute 


Start of 
ALLOCATE chain 










1 ZFLAGl 


+ 16 1 Read in | Dictionary 


Flag Dytes, 










1 Z FLAG 2 


+17 1 1 


mainly used 










1 ZFLAG3 


+18 1 1 


for optional 










1 Z FLAG 4 


+ 19 1 1 


phase marking 










1 Z FLAG 5 


+20| j 


(See Table 3 


ZSYSOT 


Pseudo 


pseudo 


Diet. Ref. 






of this appen- 




code 


code 


SYSOUT 






dix) 










1 UNUSED 


+ 21| 1 

T0| I 

+ 23| 1 












1 ZSCRCH 


+24|PD JPL 


Address of 
scratch core 
kept across 
phases 










1 UNUSED 


+ 25| 1 

T0| 1 

+ 27| 1 












1 ZHASH 


+ 2 8 j Dictionary 1 Dictionary 


Start of hash 
table 


ZINCL 


PC. 


End 


INCLUDE card 
pointer 




+32 j Not used in first hal; 




ZEQTA3 


Final 


Assy. 


Assigned 
offset table 


1 ZFATTB 


+ 36 1 Dictionary 1 Declare 


Start of fact- 


ZLCONS 


Strge 


Alloc 


Last constant 




1 jpass 2 


ored attribute 


ZEOCS 






in STATIC. 
End of STATIC 


1 ZCDIMC 


+4 1 Dictionary | Pre- 


Start constant 


ZSMREG 


Trans- 


Pseudo 


Current sym- 




1 1 translator 


dimension 




lator 


code 


bolic register 


IZ2FILE 


+44 {Dictionary |End 


Start of 
second file 










1 ZDLFST 


+ 48 1 Dictionary | Storage 


Defined 


ZFSTEX 


Strge 


End 


First external 




I 1 allocator 


storage area 




alloc 




item 


1 ZDCBLD 


+ 52 1 Dictionary j Dictionary 


Dictionary 
build area 


ZPRSIZ 


Final 


Assy. 


Size of com- 
piled program 


1 ZMPSTK 


+ 56 1 Dictionary 1 Translator 


Program map 
stack 


ZSICSZ 


Final 


Assy. 


STATIC 
INTERNAL size 


IZUPIC 


+ 60 1 Dictionary | Picture 
1 1 processor 


Start of 
picture chain 


ZSTALC 


Final 


Assy. 


Storage loc- 
ation counter 


1 ZPROCl 


+ 64 1 Dictionary [End 


Start of entry 
type 1 chain 










1 ZSTACH 


+ 68 I Dictionary |End 


Start of STAT- 
IC chain (6) 










1 ZVDIMC 


+74 1 Dictionary | Translator 


Start of vari- 
able dimension 
chain 










1 ZCONCH 


+7 8 1 Dictionary | ALLOCATE 


Start of con- 
stants chain 










1 ZDEFCH 


+ 80 1 Dictionary j Dictionary 


Chain of 
defined items 


ZCITEM 


Pre 
trans. 


End 


Chain of CGN- 
TRCLLED items 


1 ZLIKCH 


+ 82 1 Dictionary | Dictionary 


Chain of LIKE 
items 


ZEQ^AX 


Pseudo 
code 


End 


hiax. label 
nurrber 


1 ZPOLCH 


+ 84 1 Dictionary j Dictionary 


Chain of POOL 
items 











L X ± X - J. J. X X X J 



Appendix F: Communications Region 411 



Table 2. ComiTiunications Region (cont'd) 



T T 

Dec. 
Offset f- 

■+- 



T 1 

-| Descriptions 



Name 



Use 

■-T-- 



Start 



End 



■+■ 



Description 



Nairte- 



Use- 



Start j End 



+■ 



ZCOBOL 

ZDCOMl 
ZDC0M2 

ZDSA 
ZCPOFF 



ZCOMM+86 

ZCOMiyi + 8 6 
+ 90 

ZCOMM+9 4 

ZCOMM 
+ 100 



GB 

Dictionary 
Dictionary 

FA 
PD 



JI 

Dictionary 

Dictionary 

UD 
UA 



Head of COBOL 
structure 
chain 
Latest 
diet. ref. 
Flags for dic- 
tionary build 
interface 
(8 bytes) 
Head of STATIC 
DSA chain 
Offset, of 
first 

constants pool 
within static 
internal. 



NOTE: Bytes ZCOiyiM+60 to ZCOMM+332 are used internally wi-chin the Read-in phase and cannot 
be assumed to be zero at exit frorr that phase. 
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•Table 3. Comraunications Region. Bit Usage in ZFLAGJ 



1 BYTE 1 


T- 

OFFSET 1 


^ y 

BIT 1 BIT NAME | DESCRIPTION 


1 NAME 1 

L _„J._ 


1 


(HEX) 


. 


Bits are set on, on encountering: - 




1 ZFLAGl 1 


T 

ZCOMM+16 1 


8 1 ZDEFFL j DEFINED attribute 






40 


ZAWAFL 


ALLOCATE statement 






20 


ZSECFL 


Second File starement 






10 


ZDIMFL 


Dimension attribute 






08 


ZCHKFL 


CHECK/NOCHECK prefix 






04 


ZONFL 


OK, SIGNAL or REVERT Statement 






02 


ZSTRFL 


Structure 






01 


ZDECFL 


DECLARE statement 


j Z FLAG 2 1 


+ 17 1 


80 


ZLIKFL 


LIKE attribute 






40 


ZINTST 


STATIC INITIAL 






20 


ZqpCFL 


OPEN/CLOSE Statement 






10 


ZGTPFL 


GET/PUT statement 






08 


ZGOTFL 


GO TO statement 






04 


ZTEPFL 


TASK/EVENT/PRICKlTY options, REPLY Statement 






02 


ZPICFL 


PICTURE attribute/form.at item 






01 


ZISBFL 


iSUB defining 


1 Z FLAG 3 1 


+ 18 1 


80 


ZCONTG 


PACKED (N0N3TRING) attriiDUte 






40 


ZSETFL 


SETS attribute 






20 


ZOSSFL 


DELAY, DISPLAY, WAIT Statement 






10 


ZARGFL 


Argum^ent list 






08 


ZINLFL 


INITIAL Label 






04 


ZDIOFL 


DATA directed I/O 






02 


ZRECIO 


RECORD I/O 






01 


Z I NT AC 


AUTO/CTL initialization 


1 Z FLAG 4 1 


+ 19| 


30 


ZFREE 


FREE statement 






4 


STM256 


More than 256 statements 






20 


FILEFL 


Files present 






10 




SPARE 






8 


ZPUTFL 


PUT D?^TA 






04 


ZGETFL 


GET DATA 






02 


ZPTRFL 


Pointer Qualifier 






01 


ZRODFL 


STATIC DS?> Entry 


1 ZFLAG5 1 


+ 20 1 


8 

4 
TO 
01 


ZFTASK 


TASK/EVENT/PRIORITY option on a CALL 

statement 

spare 



L L X i X J 
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APPENDIX G: SYSTEM GENERATION 



For full details of the system genera- 
tion process, see IBM Systeni/36Q QQeratlnq^ 

System ; S ystem Gen eration, Form C28-655U. 

During the system, generation process, a 

control section named lEMAF is assembled 
I (see Figure 13) containing a table consist- 
I ing of five fixed-point values aligned on 

full-word boundaries, immediately followed 

by a bit string field that is twelve bytes 
I in length. The five fixed-point values are 

related to the compiler options LINECNT, 
I SIZE, SORMGIN (start), SCRMGIN (end), and 
I CONTROL COLUMN (PAGECTL) , respectively. 
I Bits 1 to 39, and 43 to 46 in the string 

are used to specify the default status of 
j the options. Bits 47 to 91 in the string 
) are used to specify if an option keyword is 

to be deleted or not. A "1" in the bit 

string means "yes" and a "0" means "no". 

The remaining bits in the string are spare 
I bits not currently in use. Figure 14 shows 

the bit identification table associated 

with the control section. 



lEMAF 



START 
DC F'60' 
DC F'99999' 
DC F'2' 
DC F'72' 
DC F'O' 



DCB'IOOOOOOOO 00000000' 

I 

DCB'IOOOOOOOO 00000000' 



DEFAULT 



SWITCHES 



DCB'IOOOOOOOO OOOOOOJOO' DELETE 

1- J 

DCB'IOOOOOOOO 00000000' SWITCHES 



DCB'IOOOOOOOO 00000000' | SPARE . 

I r— ^ ■• 

DC B' |0 OJO .0 ' swiTcazs 

L X _■ . 



•Figure 13. The lEMAF Control Section 
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ir T 

I Bit I 

I- + 

1 
2 
3 
4 
5 
6 
7 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

27 

28 
29 
30 
31 



■T T- 

|Bat| 
■+ +- 



■T T- 

iBitj 



Parameter 



Parameter 



Parameter 



ATR 

NOATR 

BCD 

EBCDIC 

CHAR60 

CHAR 4 8 

DECK 

NODECK 

EXTREF 

NOEXTREF 

FLAGW 

FLAGE 

FLAGS 

LIST 

NOLI ST 

LOAD 

NOLOAD 

XREF 

NOXREF 

SOURCE 

NOSOURCE 

SOURCE 2 

NOSOURCE 2 

OPT=0 

OPT^=l 

Used for Mod 

91 systems 

Used for Mod 

91 systems 

MACDCK 

NOMACDCK 

EXTDIC 

NOEXTDIC 



el 



el 



32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 



OPLIST 

NCOPLIST 

STMT 

NOSTMT 

MACRO 

NCMACRO 

NEST 

NONEST 

Not used 

Not used 

Not used 

COMP 

NCCOMP 

LIBRARY OPTION, 

LIBRARY OPTION, 

DELET£=ATR 

DELETE=NOATR 

D£LETL=BCD 

DELETE=EBCDIC 

DELETE=CHAR6 

DELETE=CHAR48 

DELETE=DECK 

DELETE=NODECK 

DELETE=EXTREF 

DELETE=NOEXTREF 

DELETE= FLAGW 

DELETE=FLAGE 

DELETE= FLAGS 

DELETE=LIST 

DELETE-NOLIST 

DELETE=LOAD 

DELETE^NOLOAD 

DELETE=XREF 



REAL 
COMPLEX 



|65 1 


|66 1 


|67 1 


|68 1 


|69 1 


|70 1 


|71 1 


|72 1 


|73 1 


|74 1 


|75 1 


|76 1 


|77 1 


|78 1 


|79 1 


|80 1 


1 81 1 


|82 1 


|S3 1 


|84 1 


|85 1 


|86 1 


|87 1 


1 88 1 


|89 1 


|90 1 


|91 1 


|92 1 





DELETE=NOXREF 

DELETE=SOURCE 

DELETE=NOSOURCE 

DELETE=S0URCE2 

DELf:TE=NOSOURCE: 

DELETE=OPT 

DELETE=LINECNT 

DELETE=LINELNG 

DELSTE=SIZE 

DELETE=S0RMG1N 

DELETE=DUMP 

DELETE^STMT 

DELETE-NOSTMT 

DELETE=]/iACRO 

DELETE=NOiyiACRO 

DELETE=COMP 

DELETT-NOCOMP 

Used for Model 

91 systtms 

Used for Model 

91 systems 

DELETE=PAGECTL 

DELETE=i:^ACDCK 

DELETE=NOMACDK 

DELETi:;=j:.XTDIC 

DELETE^i^OEXTDIC 

DELETE=OPLIST 

DELETE=NCOPLIST 

DELETE=NEST 

DELETE=NONEST 

Bits 93-96 

not usea 



•Figure 14,. Bit Identification Table 
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APPENDIX H: CODE PRODUCED EOR PROLOGUES AMD EPILOGUES 



The itiechanisin of dynamic storage manage- 
ment is described in the publication IBM 

System/360 Operating SYStem PL/I Library 

Program Logic Manual, Form Z 28- 6 591 

Part of the code required to implement 
the Storage management is generated as 
prologue and epilogue code by the com.piler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 



PROLOGUES AND EPILOGUES 



Example in PL/I 

A:I: PROCEDURE (X,Y) ; 

DECLARE Y CONTROLLED; 



ON OVERFLOW C=0; 



B: BEGIN; 



rND ; 



AB: UK: ENTRY (Y,Z) 



RETURN (EXPRESSION) 



END; 



1 A 


BC 


15,16, (0,15) 




DC 


AlKl) 




DC 


C'A' 


1 SIZDSA 


DC 


F' SIZE OF D3A' 


1 STATIC 


DC 


A (STATIC CONTROL 
SECTION) 




STM 


14,11,12, (13) 




LR 


10,15 




BAL 


8,GETDSA(0,10) 


1 * 

1 ^ 


MVI 


SWITCH(13) ,X'X1' 


I * 


BC 


15,COPRAM1(0,10) 



BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE bASE 
CALL ROUTINE TO GET DSA 
INSERT RETURN (EXPRESSION) 
(ONLY COMPILED IF THERE IS 

AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIBUTES) 
BRANCH TO COPY OVER PARAMETERS 



SWITCH 

A RETURN (EXP) 
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AD PRIM 



GETDSA 



LOOP 



IP 
COPRAKl 



* 

COMMON 
* 



BC 
DC 

DC 
DC 

STM 

L 

LA 

L 

I, 
L 



EALR 

LR 

LA 

SR 

A 

ST 

LA 

BCT 

BCR 

MVI 

L 

ST 

L 

LA 

SR 

LH 

ST 

L 

ST 

L 

BAL 
BCR 



15,10(0,15) 

ALKl) 

CI* 

A(A) 

14,11,12(13) 

10,ADPRIM(0,15) 

8,IP(0,10) 

11, STATIC (0,10) 

0,SIZDSA(0,10) 
15,32, (0,11) 



14,15 

14,13 

0,7, (0,0) 

15,15 

14,0(0,11) 

14,ADVEC+4 (15,135 

15,4(0,15) 

0,LOOP(0,10) 

15, R 

SWITCH(13) ,X'X2' 

14,0(0,1) 

14,X(0,13) 

14,4(0,1) 

0,10(0,0) 

14,0 

14,0(0,14) 

14,Y(0,13) 

14,8(0,1) 

14,TARGET(0,13) 

10, A. . .A(0,11) 

8 , COMMON (0,10) 
15,10 



MVI 96(13), X'80' 

BALR 10,0 

LA 9,ADDAREA(0,13) 

ST 9,ADVEC(0,13) 



BRANCH ROUND FOLLOWING CONSTANTS 
LENGTH OE BCD 
BCD OF ENTRY POINT 
FIRST PROLOGUE EASE ADDRESS 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE EASE 
SET RETURN REGISTER 

SiT UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PROLOGUES) 
GR0=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF IHESADA 
(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 
COMPILER'S 'GET DSA' ROUTINE WILL BE LOADED) 
CALL ROUTINE TO GET A NEW DSA 
POINT GR14 AT NEW DSA 
SET LOOPING VALUE = 7 
CLEAR INDEXING REGISTER 
BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 
BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO-REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GRIO FROM TRANSFER VECTOR SLOT 

FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO THE APPARENT ENTRY POINT 

FOR A 

SET DSA TASKING FLAG (ONLY COMPILED 

IF TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 



* 
* 



* 

:): >)c :(c 3|c 4c 



THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 



L 14,PR...A(12) 

ST 14,92(0,13) 

LA 14,PR. . .A(12) 

SR 14,12 

ST 14,88(0,13) 



LOAD GR14 WITH THE CURRENT DISPLAY 

VALUE FOR A 

STORE IN DISPLAY UPDATE IN DSA 

GR14 = OFFSET OF DISPLAY PSEUDO-REGISTER 
STORE IN DISPLAY UPDATE IN DSA 



INITIALIZE ON SLOTS (IF ANY) 
MVI 0(13), X'8F' IDENTIFY DSA. 



COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
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SKELETON FOR A REAL DOPE VECTOR) , AND RELOCATE THE ADDRESSES WITH THE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
IN THE DSA. 



FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
PROCEDURE THE CODE BETWEEN THE LABELS VDAl AND VDA2 IS 
GENERATED 



VDAl 



SR 
SR 



7,7 

0,0 



CLEAR STORAGE ACCUMULATOR ACl 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC2 



FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODS IS 
GENERATED (BETWEEN LABELS VARl AND VAR2). 



VARl 

* 

* 

* 

* 

* 

* 

VAR2 



VDA2 



LA 

AR 

L 

AR 

ST 



LA 



10,PROCBA3E 



EVALUATE EXTENT EXPRESSIONS (DliVlENSIONS AND STRING LENGTHS) AND 

STORE RESULTS IN DOPE VECTOR IN DSA. 

ALIGN ACCUMULATOR ACl ON CORRECT BOUNDARY FOR VARIABLE 

BUMP ACCUMULATOR AC2 EY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

IS DIMENSIONED AND VARYING). 

RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

VDA. 

BUMP ACCUMULATOR ACl BY SIZE OF STORAGE REQUIRED FOR VARIABLE 

AR 0,7 ADD ACl AND AC2 

L 15,36(0,11) LOAD GR15 WITH ENTRY POINT IHESAD3 

BALR 14,15 GET VDA 

1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 

7,1 POINT GR7 AT FIRST SECONDARY LOPE VECTOR. 

14,DV. .VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 

14,1 ADDRESS IN DOPE VECTOR. 

14,DV..VAR(0,13) 
FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
SECONDARY DOPE VECTORS. 

SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING fciCHANISK; 

ADVANCE FOR USE IN PROCEDURE 

RETURN FROM COMMON PROLOGUE. 

BRANCH ROUND BCD OF ENTRY POINT 



SAVE REGISTERS IN CALLER'S SAVE AREA 

SET UP FIRST PROLOGUE EASE 

BRANCH AND LINK TO GET DSA AND TO SET 

UP ADDRESSING VECTOR 

SET U? RETURN (EXP) SWITCH IF THERE li 

RETURN (EXP) AND DATA ATTRIBUTES OF 

ENTRY LABELS DIFFER 

BRANCH TO COPY OVER PARAMETERS 

BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE 

SAVE REGISTERS IN CALLIR'S SAVE AREA 

SET UP FIRST PROLOGUE FASE 

BRANCH TO GET DSA AND SET UP 

ADDRESSING VECTOR 

SET RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS 





BCR 


15,8 




CNOP 


0,4 


AB 


BC 


15,8(0,15) 




DC 


AL1(2) 




DC 


CAB' 




STM 


14,11,12(13) 




L 


10, PROBAS (0,15) 


1 
1 * 


BAL 


8,GETDSA(10) 


1 
1 * 


MVI 


SWITCH(13) ,X'X3' 


1 * 
1 


BC 


15,COPRAM2(0,8) 


1 UK 


BC 


15,12(0,15) 




DC 


AL1(3) 




DC 


C'lJK' 


1 PROBAS 


DC 


A(A) 




STM 


14,11,12(13) 




L 


10,PROBAS(0,15) 


1 ^ 


BAL 


8,GETDSA(0,10) 




MVI 


SWITCH(13) ,X'X4' 


C0PRAM2 


L 


14,0(0,1) 




LA 


0,10(0,0) 
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SR 


14,0 


LH 


14,0(0,14) 


ST 


14,Y(0,13) 


L 


14,4(0,1) 


ST 


14,Z(0,13) 


L 


14,8(0,1) 


ST 


14, TARGET (0,13) 


L 


10,A...A(0,11) 


BAL 


8, COMMON (0,10) 


BC 


15, AE. . .AB(0,10) 



PICK UP PSEUDO-REGISTl:.K OFFSET OF 

ARGUMENT AND STORE IN DSA. 

PICK UP ADDRESS OF SECOND ARGUMENT 

AND STORE IN Z 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GRIO WITH ADDRESS OF FIRST BYTE 

OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO APPARENT ENTRY POINT AB 



THIS IS THE APPARENT ENTRY POINT OF A. 



THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILFD fOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 



STM 14,11,12(13) 
LR 10,15 



SAVE REGISTERS 
SET PROLOGUE BASE 



LOOP 



COMMON 

+ 

* 

ONSTART 



SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 
CALL IHESADA TO GET A DSA 



L 11, STATIC (0,10) 

L 15,32(0,11) 

L 0,SIZDSA(0,10) 

BALR 14,15 

LR 14,13 

LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14, ADVEC+4 (15,13) 

LA 15,4(0,15) 

BCT 0, LOOP (0,10) 

BC 15,COMMON(0,10) 

DC F'SIZE OF DSA' 

DC A (STATIC INTERNAL CONTROL SECTION) 

BALR 10,0 

CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 

A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 

LA 10, ONSTART 



SET UP ADDRESSING VECTOR 
DSA 



BRANCH TO INITIALIZE DSA 



IN 



EPILOGUE FOR AN ON BLOCK 
L 15,IHESAFA(0,11) 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 



PROLOGUE FOR A BEGIN BLOCK 



LOOP 



LA 


14, BEND 


BALR 


15,0 


CNOP 


0,4 


STM 


14,11,12(13) 


BALR 


9,0 


L 


15,32(0,11) 


L 


0,SIZDSA(0,9) 


BALR 


14,15 


LR 


14,13 


LA 


0,7(0,0) 


SR 


15,15 


A 


14,0(0,11) 


ST 


14,ADVEC+4(15,13) 


LA 


15,4(0,15) 


BCT 


0,LOOP(0,9) 


BC 


15, COMMON (0,9) 


DC 


F'SIZE OF DSA' 


LA 


9,ADDAREA(0,13) 



SET UP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 

SET UP PROLOGUE BASE 

LOAD GR15 WITH ENTRY POINT TO IHESADA 

GET A DSA 



SET UP ADDRESSING VECTOR FOR DSA 



SET GRG TO POINT TO ADDRESSING AREA 
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3T 



9,ADVEC(0,13) 



AT END OF DSA AND STORt IN ADDRESSING 

VECTOR 
THE CODE GENERATED HERE IS THE SAME AS THAT FOR A PROCEDURE PROLOGUE 
EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 
DSA; GRIO IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 



BEND 



EPILOGUE OF A BEGIN BLOCK 
L 15,IHESAFA 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT OF 
EPILOGUING ROUTINE AND CALL IT 



RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' IN THE DSA 

SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

THE TARGET FIELD FOR WHICH THE LOCATION 'TARGET', IN THE DSA, 

POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 

END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 

L 15, IHESAFA 

BALR 14,15 



DSA OPTIMIZATION 



In compilations specifying 0PT=1, if a 
PROCEDURE or BEGIN block has a DSA wnich 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained from STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 



1. 



2. 



3. 



The block 
recursive 



must not be re-entrant or 



The block must not be nested (at any 
depth) within an ON block 

The block must not have the MAIN or 
TASK options 



A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA is required, is allocated 
its DSA from library workspace. 

Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of IHE- 
SAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are 
prefixed by the comments 'STATIC PROLOGUE 
SUBROUTINE' and 'DYNAMIC PROLOGUE 
subroutine' respectively. Entry may be 
made to the STATIC prologue subroutine at 
one of several points. 

Any block using one of these prologue 
subroutines will also use a com.piled Epilo- 
gue subroutine, which will be called for 
the END statement of the block, or for a 
RETURN statement without an expression. 



(The same Epilogue subroutine serves both 
STATIC and library workspace DSAs.) If 
there is any core to be freed, the Epilogue 
subroutine will call IHESAFA. The Epilogue 
subroutine is also compiled onto the end of 
the program, and always immediately pre- 
cedes the STATIC Prologue subroutine if 
this is present. 

The address of the Dynamic Prologue 
subroutine and the Epilogue subroutine are 
placed in the STATIC internal control sec- 
tion, at offsets 40 and 48 froir the start 
respectively. Since the STATIC Prologue 
subroutine always follows the Epilogue sud- 
routine, which is of fixed length, a third 
address slot is not required for it. 

Lis tings of the Dynamic an d S tatic Pro- 
lo gue and the Epil ogu e subroutines 

* DYNAMIC PROLOGUE SUBROUTINE 



L 


5, PR. .IHEQLWF(12) 


LTR 


5,5 


BC 


8,90(15) 


L 


6, PR. .IHEQ1NV(12) 


LTR 


6,6 


EC 


4,90(15) 


LR 


13,5 


SR 


2,2 


L 


3, PR. .IHEQSLA(12) 


ST 


13, PR. .IHEQSLA(12) 


ST 


3,4(13) 


TM 


0(3) ,X'80' 


EC 


1,52(15) 


L 


3,4(3) 


E 


36(15) 


ST 


13,8(3) 


L 


4, PR. .IHE0INV(12) 


LA 


4,1(4) 


ST 


4, PR. .IHEQINV(12) 
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ST 


H-, 84(13) 




ST 


2,80(13) 




ST 


2,8 (13) 




MVI 


76(13) ,X'00' 




ST 


2,96(13) 




BR 


14 




L 


15,32(11) 




ER 


15 


1 * 


END 


SUBROUTINE 


1 * 


EPILOGUE SUBROUTINE 




TM 


1(13) ,X'80' 




EC 


8,60(15) 




L 


2,80(13) 




LTR 


2,2 




BC 


7,60(15) 




C 


13,PR..IHEQSLA(12) 




EC 


7,60(15) 




L 


13,4(13) 




ST 


13,PR..IHEQSLA(12) 




TM 


0(13) ,X'80' 




BC 


1,50(15) 




L 


13,4(13) 




B 


34(15) 




ST 


2,8(13) 




LM 


14,11,12(13) 




BR 


14 



L 
ER 



15, A. .IHESAFA 
15 



END SUBROUTINE 

STATIC PROLOGUE SUEKCUTINE 

L 4,PR. .IHEQINV(12) 

LTR 4,4 

BC 11,86(15) 

L 7,PR. .IHEQLWC(12) 

KVC 8 0(4, 3), 80(7) 

LA 4,1(4) 

ST 4,PR. .IH£QINV(12) 

ST 4,84(3) 

hNl 76(3), X'OO' 

ST 3,8(13) 

LR 13,3 

L 3,PR. .IHE0SLA(12) 

ST 3,4(13) 

ST 13,PR. .IHEQSLA(12) 

SR 2,2 

ST 2,80(13) 

ST 2,8(13) 

ST 2,96(13) 

ER 14 

END SUBROUTINE 
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APPENDIX I: DIAGNOSTIC MESSAGES 



The messages produced by the PL/I (F) 
Compiler are explained in the publication 

IBM Svs tem/ 360 Operating^System, PL/I IE.1. 

Proqra itiitier ' s Guide , Forir C 2 8- 6594. The 
following table associates a message number 
with the particular phase and module in 
which the corresponding message is generat- 
ed. 



Message 
Number 

lEMOOOlI 
IEM0002I 
IEM0003I 
lEMOOOUI 
IEM0005I 
IEM0006I 
IEM0007I 
IEH0008I 
IEM0009I 
lEMOOlOl 
lEMOOllI 
IEM0012I 
IEM0013I 
IEM0014I 
IEM0015I 
IEM0016I 
IEM0017I 
IEM0018I 
IEM0019I 
IEM0020I 
IEM0021I 
IEM0022I 
IEM0023I 
IEM002m 
IEM0025I 
IEM0026I 
IEM0 02 7I 
IEM0028I 
IEM0029I 
IEM0031I 
IEM0Q32I 
IEM0033I 
IEM0035I 
IEM0037I 
IEM0038I 
IEM0039I 
IEM0040I 
IEM00 4 3I 
IEM0044I 
IEM0045I 
IEM0046I 
IEM0048I 
IEM0050I 
lEMOOSlI 
IEM0052I 
IEM0053I 
IEM0054I 
IEM0055I 
IEM0057I 
IEM0058I 



Logical Phase 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



Module 

CA 

CA 

CA , CP 

CA 

CA,CL 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CG 

CA 

CA,CL,CT 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CG 

CL,CP 

CL,CP 

CO 

CO 

CO 

CP 

CC 

CC 



IEM0059I 
IEM0060I 
IEM0061I 
IEM0063I 
IEM0064I 
IEM0066I 
IEM0067I 
IEM0069I 
IEM0070I 
IEM0071I 
IEM0072I 
IEM0074I 
IEM0075I 
IEM0076I 
IEM0077I 
IEM0078I 
IEM0080I 
IEM0081I 
IEM0082I 
IEM0083I 
IEM0084I 
IEM0085I 
IEM009 0I 
IEM0094I 
IEM0095I 
IEM0096I 
IEM0097I 
IEM0099I 
lEMOlOOl 
lEMOlOlI 
IEM0102I 
IEM0103I 
IEM0104I 
IEM0105I 
IEM0106I 
IEM0107I 
lEMOlOBI 
IEM0109I 
lEMOllOl 
lEMOlllI 
IEM0112I 
IEM0113I 
IEM0114I 
IEM0115I 
IEM0116I 
ISM0118I 
IEM0128I 
IEM0129I 
IEM0130I 
IEM0131I 
IEM0132I 
IEM0133I 
lEMOlSm 
IEM0135I 
IEM0136I 
IEM0138I 
IEM0139I 
IEM0141I 
IEM0m2l 
1EM0143I 
lEMOmUI 
IEM0145I 



In 
In 



Read 
Read 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read m 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



CP 

CP 

CP 

CO 

CC 

CG 

CL 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CI 

CI 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CM 

CI 

CI 

CC 

CC,CG 

CI , CV 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CG,CM 

CI 

CL 

CI 

CL 

CO 

CL 

CL 

CO 

CO 

CO 

CP 

CP 

CO 

CP 

CP 

CP 

CO 

CO 

CO 

CO 
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lEMOmbl 
IEM0147I 
IEM0149I 
lEMOlSOl 
IEM0151I 
IEM0152I 
IEM0153I 
IEM015UI 
IEM0158I 
IEM015 9I 
IEM016 3I 
IEM0164I 
IEM0166I 
;CEM0172I 
IEM0180I 
IEM0181I 
IEM0182I 

IEM0185I 
IEh0187l 
IEM0191I 
IEM0193I 
IEM0194I 
IEM0195I 
IEM0198I 
IEM0202I 
I.EM0207I 
IEM0208I 
IEM0209I 
IEM0211I 
IEM0212I 
I.EM0213I 
IEM0214I 
IEM0216I 
I.EM0217I 
IEM0220I 
I.EM0221I 
IEM0 222I 
IEM0223I 
IEM0224I 
IEM0225I 
IEM02261 
IEM0227I 
IEiyi0228I 
IEM0229I 
IEM0230I 
IEM0231I 
IEM0232I 
IEM0233I 
IEM0235I 
IEM0236I 
IEM0237I 
IEM0238I 
IEM0239I 
IEiy!0240l 
IEM02'+1I 
IEM0242I 
IEM0243I 
IEM024m 
IEM0245I 
IEM0247I 
IEM0254I 
IEM0255I 
IEM0510I 
IEM0511I 
IEM0512I 
IEM0513I 
IEM0514I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 



CO 


IEK0515I 


Dictionary 


CO 


IEM0516I 


Dictionary 


CL,CM 


IEM0517I 


Dictionary 


CL 


IEM0518I 


Dictionary 


CO 


IEiy;0519I 


Dictionary 


CO 


IEM0520I 


Dictionary 


CO 


IEM0521I 


Dictionary 


CA 


IEM0522I 


Dictionary 


CO 


IEM0523I 


Dictionary 


CO 


IEM05 2 4I 


Dictionary 


CT 


IEM0525I 


Dictionary 


CS,CT 


IEM0527I 


Dictionary 


CL 


IE!yi0528I 


Dictionary 


CL 


IEM0529I 


Dictionary 


CT 


IEM0530I 


Dictionary 


CL 


IEM0531I 


Dictionary 


CL,CS, 


IEK0532I 


Dictionary 


CT,CV 


IEM0533I 


Dictionary 


CT 


IEM0534I 


Dictionary 


CT 


IEM0535I 


Dictionary 


CT 


IEK0536I 


Dictionary 


CT 


1EK05311 


Dictionary 


CT 


IEK0538I 


Dictionary 


CT 


IEM0539I 


Dictionary 


CT 


IEM054 0I 


Dictionary 


CL 


IEM0541I 


Dictionary 


CG 


IEM05U2I 


Dictionary 


CG 


IEM0543I 


Dictionary 


CC 


lEMOS^mi 


Dictionary 


CL 


IEM054 5I 


Dictionary 


CP 


lEMOSUei 


Dictionary 


CP 


IEM0547I 


Dictionary 


CP 


IEM0548I 


Dictionary 


CP 


IEM05U9I 


Dictionary 


CP 


lEMOSSOI 


Dictionary 


CT 


IEM0551I 


Dictionary 


CT 


IEM0552I 


Dictionary 


CT 


IEM0553I 


Dictionary 


CT 


IEM0554I 


Dictionary 


CT 


IEK0555I 


Dictionary- 


CT 


IEM0556I 


Dictionary 


CT 


IEM0557I 


Dictionary 


CT 


IEM0558I 


Dictionary 


CT 


IEM0559I 


Dictionary 


CT 


IEM0560I 


Dictionary 


CS,CT 


IEM0561I 


Dictionary 


CT 


IEl/i0562I 


Dictionary 


CT 


IEM0563I 


Dictionary 


CV 


lEMOSem 


Dictionary 


CS 


IEK0565I 


Dictionary 


CS 


IEM0566I 


Dictionary 


CS 


IEM0567I 


Dictionary 


CV 


IEM0568I 


Dictionary 


CS 


IEK0569I 


Dictionary 


CV 


IEM0570I 


Dictionary 


CV 


IEM0571I 


Dictionary 


CV 


IENi0572I 


Dictionary 


CV 


IEM0573I 


Dictionary 


CV 


IEM0589I 


Dictionary 


CV 


IEM0590I 


Dictionary 


cw 


IEM0591I 


Dictionary 


CC 


IEM0592I 


Dictionary 


CG 


IEM0593I 


Dictionary 


KH 


IEM0594I 


Dictionary 


EH 


IEiyi0595I 


Dictionary 


EH 


IEM0596I 


Dictionary 


EG 


IEM0597I 


Dictionary 


EG 


IEM0598I 


Dictionary 



EG 






EG 






EG 






EG 






EG 






EG 






EG 






EG 






EG 






EH 






EI 






EJ 






EH, 


EI 


EJ 


EI 






EI 






EI 






EI 






EI 






EI 






EI 






EI 






EI 






EJ 






EJ 






EJ 






EJ 






EJ 






EL, 


EK 


Ely; 


EL., 


EK 


iiM 


EL, 


EK 


EM 


EL, 


EK 


L^j 


EL, 


EK 


,LM 


EL, 


EK 


EV: 


EL, 


EV 


R.M 


EL, 


EK 


EM 


EK, 


EL 


LM 


EL, 


£K 


EM 


EL, 


EK 


EM 


EL, 


EK 


EM 


EL, 


EK 


EM 


EL, 


EK 


rM 


EL, 


EK 


EM 


EL. 


EK 


EM 


EL, 


ZK 


i.M 


EL, 


EK 


EM 


EL, 


EK , 


LM 


EK, 


EL 


EM 


EK, 


EL 


EM 


EK, 


EL 


EM 


EK, 


EL, 


ir.M 


EK, 


EL 


£M 


EP 






EP 






EP 






EP 






EK 






EL 






EL 






EW 






SW 






EW 






EW 






I'W 






EW 






EW 






EW 






EW 






EW 
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IEM0599I 
IEM06 02I 
IEM0603I 

lEKoeom 

IEM06052 
IEM0606I 
IEM0607I 
IEM0608I 
IEM0609I 
IEM0610I 
IEK0611I 
I IEM0612I 
IEM06 2 3I 
IE^■062^I 
IEM06251 
IEM0626I 
IElM06271 
IEM06 2 8I 
IEM0629I 
IEM0630I 
IEM06 31I 
IEM0632I 
IEM0633I 
IEM0634I 
IEM0636I 
IEM06 37I 
IEM063 8I 
IEM0640I 
IEM0641I 
IEM06U2I 
IEM0643I 
IEM064UI 
I IEM0645I 
I IEM0646I 
I IEM0647I 
IEM0652I 
IEM0653I 
IEM0654I 
IEM0655I 
IEM0656I 
IEM0657I 
IEM065 8I 
IEM0 6 73I 
IEFi0674I 
IEM0675I 
IEM0676I 
IEM0677I 
IEM0 68 3I 
IEM0684I 
IEM0685I 
TEM0686I 
IEiyi06 87l 
IEM0688I 
IEM06 8 9I 
IEM0690I 
IEM0691I 
IEM0692I 
IEM0693I 
IEH069UI 
IEM0695I 
IEM0696I 
IEM0697I 
IEM0699I 
IE^;i0700I 
IEM0701I 
IEiy!0702l 
IEM0703I 
IEM070UI 



Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary- 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary- 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary- 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 



LW 




IEM07 51 


Dictionary 


FV, 


FVi 


IEM0706I 


Dictionary 


FV, 


FW 


UEt-;07 07I 


Dictionary 


FV, 


FVj 


IEM0708I 


Dictionary 


FV, 


FW 


IEK0709I 


Dictionary 


FV, 


Fv; 


1EM0710I 


Dictionary 


FV, 


FW 


IEM0711I 


Dictionary 


FV, 


Fw 


IEM0712I 


Dictionary 


FV, 


FW 


IEM3713I 


Dictionary 


FV, 


FW 


IEM0715I 


Dictionary 


FV, 


FW 


IEM0718I 


Dictionary 


FV 




IE^'.0719I 


Dictionary 


FV, 


FW 


IEiyi0720I 


Dictionary 


FV, 


FW 


IEM0721I 


Dictionary 


FV, 


FW 


IEI^0722I 


Dictionary 


FV, 


FW 


IEM0723I 


Dictionary 


FV, 


FW 


ISM0724I 


Dictionary 


FV, 


FW 


IEF;0725I 


Dictionary 


FV, 


FW 


IEM0726I 


Dictionary 


FV, 


FW 


IEM0727I 


Dictionary 


FV, 


FW 


IEM0728I 


Dictionary 


FV, 


FW 


IEK0729I 


Dictionary 


FY 




IEF0730I 


Dictionary 


FY 




IEM0731I 


Dictionary 


EY 




IEM07 32I 


Dictionary 


EY 




IEK07 331 


Dictionary 


EY 




IEM0734I 


Dictionary 


£Y 




IEF0735I 


Dictionary 


EY 




IEM0736I 


Dictionary 


EY 




IEM0737I 


Dictionary 


EY 




IEM07 39I 


Dictionary 


EY 




IEM07a01 


Dictionary 


£Y 




IEM07U1I 


Dictionary 


EY 




1EM0742I 


Dictionary 


EY 




IEF0745I 


Dictionary 


FE 




IEF07U6I 


Dictionary 


FE 




IEH07a7I 


Dictionary 


FE 




IEM0748I 


Dictionary 


FE 




IEM0749I 


Dictionary 


FE 




IEiyi0750I 


Dictionary 


FE 




IEM0751I 


Dictionary 


FE 




IEM0752I 


Dictionary 


FE 




IEM0754I 


Dictionary 


FF 




IEK07 5 5I 


Dictionary 


FF 




IEM0756I 


Dictionary 


FF 




IEM0758I 


Dictionary 


FE 




IEM0759I 


Dictionary 


FI 




IEM0760I 


Dictionary 


FI 




IEF0761I 


Dictionary 


FI 




IEF.07 6 2I 


Dictionary 


FI 




IEM0769I 


Pretranslator 


FI 




IEI':077 0I 


Pretranslator 


FI 




IEiyi0771I 


Prttranslator 


FI 




IEM077 8I 


Pretranslator 


FI 




IE]yi0779l 


Pretranslator 


FI 




IEM0780I 


Pretranslator 


FI 




IEK0781I 


Pretranslator 


FI 




1EF0782I 


Pretranslator 


FI 




IEK0786I 


Pretranslator 


FI 




IEF0787I 


Pretranslator 


FI 




IEM0790I 


Pretrc^nslator 


FI 




IEM0791I 


Pretranslator 


FI 




IEW07 9 2I 


Pretranslator 


FI 




IEM07 9 3I 


Pretranslator 


FI 




IEM0794I 


Pretranslator 


FI 




IEK0795I 


Pretranslator 


FI 




IEM0796I 


Pretranslator 


FI 




IEM0797I 


Pretranslator 



FI 
FI 
FI 
FK 
FK 
FK 
FK 
FK 
FK 
EJ 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FO 
FQ 
FQ 
FQ 

Fg 

FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
FQ 
GB 
GB 
GB 
GB 
GB 
GE 
GB 
GB 
GK 
GK 
GK 
GK 

gp,gc,g:r 

GP, GQ,G.;< 
GP,GQ,GK 

gp,gq,g:k 

GP , GQ , GK 
GP,GQ,GR 
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IEM0798I 
IEK0799I 
lEMOSOOI 
IEM08 01I 
IEM08021 
IEM0803I 
IEM08041 
IEM0 8 05I 
IEM0806I 
IEI^j0807I 
IEM0816I 
IEM0817I 
IEr'J0818I 
IEM0 819I 
IEM0820I. 
IEiyi0821I 
IEM0 823I 
IEM0 824I 
1EM0 8 2 5I 
IEM08 26I 
IEM0 832I 
IEM0833I 
IEM08341 
IEM08 35I 
IEM0 8 36I 
IEh0837I 
IEM0848I 
IEM084 9I 
IEH08 50I 
IEh0851I 
IEM0852I 
lEMOSSSl 
IElviOS6 4I 
IEM0 865I 
IEM0866I 
IEM0867I 
IEM0868I 
IEM0 8 6 91 
lEMOSVOI 
;CEM0871I 
IEM0872I 
IEM0873I 
IEM0874I 
IEM087 5I 
I.EM0 876I 
IEM0877I 
IEM0878I 
IEM087 9I 
IEM088 0I 
IEM0881I 
IEM0 8 8 2I 
IEM0896I 
IEM0897I 
IEM0 898I 
IEM0 8 99I 
IEM0900I 
IEM0901I 
IEM09 02I 
IEM09031 
I.EM0906I 
IEM0907I 
IEM1024I 
IEH1025I 
IEM1026I 
IEM1027I 
IEM1028I 
IEM1029I 
lEMlOUOI 



Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pret-ranslator 

Pretranslator 

Pretranslatc r 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pre trans la toi: 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pr e trans la t.or 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 



GP 


GQ, 


GR 


IEM10 51I 


Translator 


IM 


GP 


GQ, 


GR 


IPlf'-lOSei 


Translator 


IM 


GP 


GQ, 


GR 


IE^.1057I 


Translator 


IM 


GP 


GQ, 


GR 


IEM105 8I 


Translator 


IM 


GP 


GQ, 


GR 


IE^^10 59I 


Translator 


IM 


GP 


GQ, 


GR 


IEM106 0I 


Trans] ator 


IM 


GP 


GC, 


GR 


IEK1061I 


Translator 


l¥l 


GP 


,^Q, 


GR 


IEK1062I 


Translator 


IM 


GP 


GQ, 


GR 


IEM1063I 


Translator 


IM 


GP 


GQ, 


GR 


IEK106 4I 


Translator 


IM 


GU 


GV 




1 EMI 06 51 


Translator 


IM 


GU 


GV 




IEM10 6 6I 


Translator 


IM 


GU 


GV 




IEM1067I 


Translator 


IM 


GU 


GV 




IEM1068I 


Translator 


IM 


GU 


GV 




IEM1071I 


Translator 


IM 


GU 


GV 




IEM1072I 


Translator 


IM 


GU, 


GV 




IEM1073I 


Translator 


IM 


GU 






IEM1074I 


Translator 


IM 


GU 


GV 




1 IEiyil076I 


Translator 


JD 


GU 


GV 




1 IEM1082I 


Translator 


IX 


HE 


HG 




lEKioesi 


Aggregates 


JK 


HF 


HG 




IEM1089I 


Aggregates 


JK 


HE 


HG 




1 1EM1090I 


Aggregates 


JK 


HF 


HG 




1 IEM1091I 


Aggregate Preprocessor 


JI 


HF 


HG 




1 IEM1092I 


Aggregates 


JK 


HE 


HG 




IEM110 4I 


Aggregates 


JP 


HF 


HG 




IEM1105I 


Aggregates 


JP 


HF 


HG 




IEM1106I 


Aggregates 


JP 


HE 


HG 




IEM.1107I 


Aggregates 


JP 


HE 


HG 




IEM1108I 


Aggregates 


JP 


HF 


,HG 




lEMlllOl 


Aggregates 


JP 


HF 


HG 




lEMllllI 


Aggregates 


JP 


HK 


HL 




ISM1112I 


Aggregates 


JP 


HK 


HL 




IEM1113I 


Aggregates 


JP 


HK 


HL 




lEMllim 


Aggregates 


JP 


HK 


HL 




lEMlllSl 


Aggregates 


JP 


HK 


HL 




IEM1120I 


Aggregates 


JP 


HK 


HL 




IEM1121I 


Aggregates 


JP 


HK 


HL 




IEM1122I 


Aggregates 


JP 


HK 


,HL 




IEK112 3I 


Pseudc-code 


LD 


HK 


HL 




IEM1125I 


Pseudo-code 


LD 


HK 


HL 




1EM1200I 


Pseudo-code 


LA 


HK 


HL 




IEM1569I 


Pseudo-code 


LG- 


HK 


HL 




IEM1570I 


Pseudo-code 


LG 


HK 


,HL 




IEM1571I 


Pseudo-code 


LG 


HK 


HL 




IEM1572I 


Pseudo-code 


LG 


HK 


rHL 




IEM15 7 4I 


Pseudc-code 


LG 


HK 


,HL 




IEM1575I 


Pseudo-code 


LG 


HK 


HL 




IEM1600I 


Pseudo-code 


LS, 


HK 


,iiL 




IEM1601I 


Pseudo-code 


LS 


iiK 






IEM1602I 


Pseudo-code 


LS, 


HP 






IEM1603I 


Pseudo-code 


LS, 


HP 






lEMieom 


Pseudo-code 


LS, 


HP 






1EM1605I 


Pseudo-code 


LS, 


HP 






IEM1606I 


Pseudo-code 


LS, 


HP 






IEM1607I 


Pseudo-code 


LS, 


HP 






IEM1608I 


Pseudo-code 


LS, 


HP 






IEiyil609I 


Pseudc-code 


LS, 


HP 






I.EK1610I 


Pseudo-code 


LW 


HP 






IEM1611I 


Pseudo-code 


LW 


HP 






IEM1612I 


Pseudo-code 


LVv 


lA 






IEM1613I 


Pseudo-code 


LS , 


lA 






lEF.ieim 


Pseudo-code 


Ltv 


lA 






1 IEM16151 


Pseudo-code 


ME 


lA 






1 lEMieiei 


Pseudo-code 


ME 


lA 






IEM1617I 


Pseudo-code 


MB 


lA 






IEM1618I 


Pseudc-code 


MB 


IW 






IEM1619I 


Pseudo-code 


MB 



ON 



S,LT,LU 

LT,LU 
LT,LU 
LT,LU 
LT,LU 
LT,LU 
LT,LU 
LT,LU 
LT,LU 



LT,LU 
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IEM1620I 
IEM1621I 
IEM1622I 
IEM1623I 
IEM1624I 
IEM1625I 
IEM1626I 
IEM1627I 
IEM1628I 
IEM1629I 
IEM1630I 
IEM1631I 
IEM1632I 
IEM1633I 
IEM163UI 
IEM1635I 
IEM1636I 
IEM1637I 
IEM1638I 
IEM1639I 
IEM1640I 
IEM1641I 
IEM1642I 
IEK1643I 
IEM16 4 4I 
IElyJl6 4 5I 
lEMieUSl 
IEM1649I 
IEM1650I 
IEM16511 
IEM1652I 
IEM1653I 
IEM1654I 
IEM1655I 
IEM1656I 
IEM1657I 
I EMI 6 7 01 
IEM1671I 
IEM1680I 
IEM1687I 
IEM1688I 
IEM16 8 9I 
IEM1691I 
IEM1692I 
IEiyil693I 
IEM1750I 
IEM1751I 
IEiyil752I 
IEM1753I 
IEM17 5UI 
IEM1790I 
IEM17 93I 
IEM179UI 
IEM1795I 
IEM1796I 
IEM1797I 
IEM1800I 
IEM1801I 
IEiyil802I 
IEM1803I 
IEM18 04I 
IEM18 05I 
IEM1806I 
IEM1807I 
IEK18 08I 
IEM18 09I 
IEM1810I 
IEM1811I 



Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Psendo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 
Pseudo- 



code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
•code 
code 
■code 
code 
•code 
•code 
•code 
•code 
•code 
•code 
•code 
•code 
code 
•code 
code 
code 
code 
code 
code 
code 
•code 
•code 
code 
code 
code 
code 
•code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 



MB 

MB 

MB , ME 

MB 

MB 

ME 

ME 

ME 

ME 

ME 

MG,Mn 

Ml , MJ 

MI,MJ 

ME 

ME 

ME 

ME 

ME 

ME 

MF 

MM , MN 

MM, MM 

MM,MN 

MM,MN 

MM, MM 

MM,MN 

MM,MN 

MM,MN 

MM,MN 

MM,MN 

MM,MN 

M^^M1S1 

MM , MN 

MM 

ME 

MM 

MP 

MP 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

MS 

NA 

NA 

NA 

OG , OM 

OE 

OE 

OE 

OE 

OE 

OS 

OS 

OS 

OS 

03 

OS 

OS 

OS 

03 

OS 

OS 

OS 



IEM1812I 
IEM18131 
IEK1814I 
IEM1815I 
IEM1816I 
IEM1817I 
IEM1818I 
IEM1819I 
IEM1820I 
IEMlfe21I 
IEM18 22I 
IEM1823I 
IEM18 2 4I 
IEM1825I 
IEM1826I 
IEM1827I 
IEM1828I 
IEM1829I 
IEM1830I 
IEM1832I 
IEM1833I 
IEM1834I 
IEM1835I 
IEM1836I 
IEM18 37I 
IEM1838I 
IEM1839I 
IEM18U0I 
IEM1841I 
IEM1843I 
IEM18U4I 
ISM18U.5I 
IEM1846I 
IEM18U7I 
IEM1848I 
IEM18U9I 
IEM1850I 
IEM18 6 0I 
IEM1861I 
IEM1862I 
IEM1870I 
IEM1871I 
IEM1872I 
I.EM187 3I 
IEM187tH 
IEM1875I 
IEM230UI 
IEM2305I 
IEM2352I 
IEM2700I 
IEM2701I 
IEM2702I 
IEM2703I 
IEM270m 
IEM2705I 
IEM2706I 
IEM2707I 
IEM2708I 
IEM2709I 
IEM2710I 
IEM2711I 
IEF2712I 
IEM2817I 
IEM2818I 
IEM2819I 
IEM2820I 
IEM2821I 
IEM2822I 



Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Constant Conve 

Constant Conve 

Pseudo-code 

Pseudo-code 

Pseudc-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Storage Alloca 

Storage Alloca 

Storage Alloca 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

Register Alloc 

DCE Generation 

DCB Generation 

DCE Generation 

DCE Generation 

DCE Generation 

DCB Generation 





OS 




OS 




OS 




OS 




NJ 




NJ 




NJ 




NJ 




NJ 




NJ 




NJ 




NJ 




NM 




NG 




NG 




NG 




NG 




NG 




NG 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 




NM 


rsions 


OS 


rsions 


OS 




NU 




NU 




NU 




NU 




NU 




NU 




NU 




NU 




NV 


ticn 


PD 


tion 


PD 


tion 


PD 


at ion 


RF, 


at ion 


RF, 


aticn 


RF, 


ation 


RF, 


ation 


RF, 


ation 


RF, 


ation 


RF, 


ation 


RF, 


ation 


RF, 


aticn 


RF, 


ation 


RF, 


ation 


FF, 


ation 


RF, 




GA 




GA 




GA 




GPt 




GA 




GA 



RG,RH 
RG , HK 
RG,RH 
RG , RH 
RG,RH 
RG,kH 
RG , RH 
RG,KH 
RG , Rh 
RG , RJrl 
RG , RH 
RG,RH 
RG , rill 
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1 IEM282 3I 


1 IEM2824I 


1 IEM2825I 


1 IEM2826I 


1 IEM2827I 


1 IEM2828I 


IEM2833I 


IEM283UI 


IEM2835I 


IEM2836I 


IEM2837I 


IEM28'+9I 


IEM2852I 


IEM2853I 


IEM2 854I 


IEM2855I 


IEM2&65I 


IEM2866I 


IEM2867I 


IEM2868I 


IEM28811 


IEM2882I 


IEM2883I 


IEM2884I 


IEJyi2885l 


IEM2886I 


IEK2887I 


IEM2888I 


IEK2897I 


IEM2898I 


IEiyi2899I 


IEM2900I 


IEM2 913I 


IEM3088I 


IEM3136I 


31491 


IEM3151I 


IEM3153I 


IEM3154I 


IEiyi3156l 


IEM316 2:C 


IEM3167I 


31731 


IEiM3176I 


1 31901 


IEM3199I 


32131 


IEM3584I 


IEM384 0I 


IEM38U1I 


IEM3842I 


IEM3843I 


IEM384m 


IEM38 45I 


IEM38a6i: 


IEM3847I 


IEM38 48I 


IEM3 84 9I 


IEM3850I 


IEK3851I 


IEM3852I 



DCB Generation GA 

DCB Generation GA 

DCB Generation GA 

DCB Generation GA 

DCB Generation GA 

DCB Generation GA 

Final Assembly TF 

Final Assembly TF 

Final Assembly IF 

Final Assembly TF 

Final Assembly TF 

Final Assembly TJ 

Final Assembly TJ 

Final Assembly '±J 

Final Assembly TJ 

Final Assemibly TJ 

Final Assembly TO 

Final Assembly TO 

Final Assembly TO 

Final Assembly TO 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly TT 

Final Assembly UA 

Final Assembly UA 

Final Assembly UC 

Final Assemibly UC 

Final Assembly UF 
Dictionary, Declare EL 
Pass 2 

Dictionary, Declare e;l 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

Dictionary, Declare EL 
Pass 2 

48 Character BX 
Preprocessor 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 

Compiler Control AA 



IEM38 53I Compiler Control 

IEM38 55I Compiler control 

IEM38 56I Compiler Control 

IEM38 57I Compiler Control 

IEM3858I Compiler Control 

IEM38 59I Compiler Control 

IEM3860I Compiler Control 

IEK38 61I Compiler Control 

IEr']38 6 2l Compiler Control 

IEK3863I Compiler Control 

IEK3864I Compiler Control 

IEM3865I Compiler Control 

IEiyi3872l Compiler Control 

IEiyi3873l Compiler Control 

IEM3874I Compiler Control 

IEM3875I Compiler Control 

IEM3876I Compiler Control 

IEM3877I Compiler Control 

IEM'3 878I Compiler Control 

IEM3880I Compiler control 

IE]yi3887l Compiler Control 

IEM388 8I Compiler Control 

IEM388 9I Compiler Control 

IEM38 90I Com.piler Control 

IEM38 91I Compiler Control 

IEM38 92I Compiler Control 

IEM38 93I Compiler Control 

IEM3894I Compiler Control 

IEK3895I compiler Control 

IEM38961 Compiler control 

IEI^3897I Compiler Control 

IEM3898I Compiler Control 

IEiyf3899l Con.piler Control 

IEM3900I Compiler Control 

IEM39 01I Compiler Control 

IEiyi3902l Compiler Control 

IEM3902I Compiler Control 

IEM39 3I Compiler Control 

IEiy!3904I Compiler Control 

IEM3905I Compiler Control 

IE^i3906I Compiler Control 

IEM39 07I Compiler Control 

IEM39 08I Compiler Control 

IEM3909I Compiler Control 

IEiyi3910I Compiler Control 

IEM3911I Compiler Control 

IEM3912I Compiler Control 

lEMUlOei Compiie-time Proce 

IEMU109I Compiie-time Proce 

IEM4112I Compile-time Proce 

IEM4115I Compile-time Proce 

IEM4118I Compile-time Proce 

IEM4121I Com.pile-time Proce 

IEF,m24l Compile-time Proce 

IEM4130I Compile-time Proce 

IEFj4133I Compile-time Proce 

IEM413m Comipile-time Proce 

IEMm36l Com.pile-time Proce 

IEM4139I Compile-time Proce 

IEM4142I Com.pile-time Proce 

IEf4m43I Compile-time Proce 

lEMUlUSI Compile-time Proce 

IEM4150I Com.pile-time Proce 

IEM4151I Com.pile-tim'e Proce 

IEM4152I Compile-time Proce 

IEM4153I Conpile-time Proce 

IEiyi4154I Compile-time Proce 

IEM4157I Corcpile-time Proce 





AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






A A 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






AA 






A A 






AA 






AA 






AA 






AA 






AL 






AE 






AE 






AB 






AE 






AB 






AA 






AA 






AA 






AA 






AA 






AL 






AB 






AE 






AE 




ssor 


AS 




ssor 


AS 




ssor 


AS 




ssor 


AS 




ssor 


AS 




ssor 


AS , EC , 


EG 


ssor 


BC , BG 




ssor 


BG 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


EC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


BC 




ssor 


EC 
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IEM4160I Compile- time Processor BC 

IEM4163I Compile-time Processor BC 

IENi4166l Compile-time Processor BC 

IEM4169I Compile-time Processor BC 

IE^i4172I Compile-time Processor BC 

lEMUlVSI Compile-time Processor BC 

IEiy;4176I compile-timie Processor BC 

lEM'+lVSI Compile-time Processor BC 

lEK^lSm Compile-time Processor BC 

lEiyimS?! Compile-time Processor BC 

IEM4188I Compile-time Processor BC 

IEiyi4190I Compile-time Processor BC 

IEInm9 3I Compile-time Processor BC 

IEM4196I Compile-time Processor BC 

IEiyi4199I Coiripile-time Processor BC 

IEM4202I Compile-time Processor BC 

IEK4205I Compile-time Processor BC 

IEM4208I Compile-time Processor BC 

IEM4211I Com;pile-time Processor BC 

IEM4212I Compile-time Processor BC 

IEM42mi Compile-tim.e Processor BC 

IEM4217I Compile-time Processor BC 

IEMU220I Compile-time Processor BC 

IEM4223I Compile-time Processor BC 

IEN14226I Compile-time Processor BC 

IEM4229I Compile-time Processor BC 

1EM42321 Compile-time Processor BC 

IEM'42351 Compile-time Processor BC 

IEM4238I Compile-time Processor BC 

IEM4241I Compile-time Processor BC 

IEMU244I Compile-time Processor EC 

IEM4247I Compile-time Processor BC 

IEMU248I compile-time Processor BC 

IEM4250I Compile-time Processor BC 

IEM4253I Compile-time Processor BC 

IEM4254I Compile-time Processor BC 

IEM4256I Compile-time Processor BC 

IEM42591 Compile-timie Processor BC 

IEM4262I Compile-timie Processor BC 

IEM4265I Compile-time Processor BC 

IEM4271I Compile-time Processor BC 

IEMU277I compile-time Processor BC 

IEM4280I Compile-time Processor BC 

IEM428 3I Compile-time Processor BC 

IEM4286I Compile-time Processor BC 

IEI'i4 28 9l Comipile-tirr,e Processor BC 

IEM4292I Com.pile-time Processor BC 

IEh4295I Compile-tim.e Processor BC 

IEMU2961 Compile-time Processor BC 

IEM4298I Compile-time Processor BC 

IEiM4299I Compile-time Processor BC 

IEMU301I Compile-timie Processor BC 

IEMU30m Compile-time Processor BC 

IEM4307I Compile-time Processor BC 

IEM4310I Compile-time Processor BC 

IEMU313I Compile-time Processor BC 

IEiMi4319I Compile-time Processor BC 

IEMU322I Compile-time Processor BC 

IE^i^325I Compile-time Processor BC 

IENiU328l compile-time Processor BC 

IEM4331I Compile-tim,e Processor BC 

IEMU3321 Compile-time Processor BC 

IEM4334I Compile-time Processor BC 

IEM4 3371 Compile-time Processor BC 

IEM'43401 Compile-time Processor BC 

IEJyi4343l Compile-time Processor BC 

IEMU346I Compile-timie Processor BC 



IEMU349I 
IEM4352I 
IEI^4355I 
IEMU358I 
IEM4361I 
IEM436m 
IEM4367I 
IEM4370I 
IEM4373I 
IEM4376I 
IEK4379I 
IEM4382I 
IEM4 28 3I 
IEM4391I 
IEM4394I 
IEM4397I 
lEKitmOOI 
IE]yi4403I 
IE]y34406I 
IEiyi4407I 
IEM4U09I 
IEMUm2I 
lEMUmSI 
IEiy!lt421I 
IEM4U33I 
1EMU4 36I 
IEM4U39I 
lEMiaUSI 
IEM44 51I 
IE^4452I 
IEKU4 5m 
IEK;4U57I 
IEM4460I 
IEM4463I 
IEM4 4 69I 
IEM4472I 
IEM447 3I 
IEK4475I 
IEM4478I 
lEMUUSlI 
IEM4484I 
IEM4I499I 
IEM4502I 
IEM450UI 
IEM4505I 
IEM4506I 
1EH4508I 
IEM4 511I 
IEF:4514I 
IEM4 517I 
IEM4520I 
IEM4523I 
IEM4526I 
IEM4529I 
IEM4532I 
IEM4535I 
IEM4538I 
IEM4547I 
IEM4550I 
IEM4553I 
IEM4559I 
IEM4562I 
IEM4570I 
IEM4 572I 
IEM457m 
IEM4576I 
IEM4578I 



Compile- 
Com:pile- 
Compile- 
Com.pile- 
Comipile- 
Compile- 
Com.pile- 
Compile- 
Compile- 
Com.pile- 
Compile- 
Compile- 
Com.pile- 
Com.pile- 
Compile- 
Comipile- 
Compile- 
Comipile- 
Compile- 
Compile- 
Com:pile- 
Compile- 
Conipile- 
Compile- 
Compile- 
Compile- 
Com^pile- 
Compile- 
Compile- 
Compile- 
C'oiipile- 
Coropile- 
Compile- 
Compile- 
Compile- 
Compile- 
Compile- 
Comipiie- 
Compile- 
Compile- 
Coiiipile- 
Com.pile- 
Comipile- 
Compile- 
Compiie- 
Compile- 
Compile- 
Com.pile- 
Compile- 
Comipile- 
Coii':pile- 
Comipile- 
Coirpile- 
Coinpile- 
Compile- 
Compile- 
Comipile- 
Compile- 
Coiiipile- 
CoiTipile- 
Compile- 
Comipile- 
Comipile- 
Compile- 
Con:pile- 
Conipile- 
Comipile- 



■time 


Processor 


BC 


■time 


Processor 


BC 


tim^e 


Processor 


BC 


■time 


Processor 


BC 


time 


Processor 


BC 


•time 


Processor 


BC 


■time 


Processor 


BC 


■time 


Processor 


BC 


■time 


Processor 


BC 


■tim;e 


Processor 


BC 


■time 


Processor 


BC 


■time 


Processor 


BC 


■time 


Processor 


BC 


■timie 


Processor 


BC 


•time 


Processor 


BC 


■time 


Processor 


BC 


•time 


Processor 


BC 


■time 


Processor 


BC 


■time 


Processor 


BC 


•time 


Processor 


BC 


•timie 


Processor 


BC 


■time 


Processor 


BC 


time 


Processor 


BC 


•time 


Processor 


BC 


■time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


•time 


Processor 


BG 


■time 


Processor 


BG 


•tim.e 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


■tim.e 


Processor 


BG 


•time 


Processor 


BG 


time 


Processor 


BG 


■time 


Processor 


BG 


•timie 


Processor 


BG 


■timie 


Processor 


BG 


■time 


Processor 


BG 


■tip.e 


Processor 


BG 


■tine 


Processor 


BG 


time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


EG 


■time 


Processor 


BG 


■timie 


Processor 


BC 


■tim.e 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


time 


Processor 


BG 


■time 


Processor 


AS 


time 


Processor 


BC , BG 


■time 


Processor 


AS 


■tin:e 


Processor 


AS 


tim.e 


Processor 


BC 


■time 


Processor 


AV 


■time 


Processor 


BG 


■tim.e 


Processor 


BG 


timie 


Processor 


EG 


time 


Processor 


BG 


time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


■time 


Processor 


BG 


•time 


Processor 


BG 
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APPENDIX J: COMPILE-TIME PROCESSC.^ 



This appendix describes, for the 
Compile-tirne Processor Logical Phaser, the 
internal formats of text and tables, corr- 
rnunication region use, Operating System 
interfaces and compiler control interfaces. 



1. INTERNAL FORMATS OF TEXT 



The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 



F orma t of a Dictionary_Entry 



The compile-time processor uses a set of 
chained dictionary entries. Hashing tech- 
niques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
skeletal format;: 

The fields defined in this skeleton have 
the following meaning and usage: 

LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., a 
constant) this field is zero. 

PROC NO. : The number assigned to the proce- 
dure in which the identifier was 



declared. Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 

HASH-CHAIN-POINTEK: The dictionary address 
of the next item on this hash 
cnain. This address is zero if no 
item follows. 



TYPE : 



byte which gives the attributes of 
the entry. The bits (if on) have 
been assigned the following mean- 
ings : 



11 


MEANING 


1 


fixed 


2 


character 


3 


bit 


4 


entry 


5 


label 


6 


INCLUDE identifier 


7 


iterative DO 


8 


constant 



VALUE/VALUE-POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed deci- 
mal number. Otherwise it contains 
a pointer to the value stored in 
IVES. The definition of value for 
the various kinds of entries is 
given r.elow. For a fixed macro 
variable, this contains the value. 
For a character variable, it con- 
tains a pointer to IVEs containing 
tne value. For a procedure, it 
points to the text-block location 
of the code. For a label, it 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 

Word n 



Byte 1 Byte 2 Byte 3 Byte 4 
J. ^ ^ ^ 

LENGTH I PROC NO. j HASH-CHAIN- POINTER j 
1 ± ^ 

TYPE I VALUE/VALUE-POINTER j 

FLAGS I COUNT j 

POINTERS/PARM-TYPES j 

|. _ ^ 

EBCDIC NAME > | 

L . J 



■> EBCDIC NAME 
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points to the text-block location 
of the label. If references to the 
label are found before the label is 
discovered, the value pointer tem- 
porarily points to a chain of IVBs 
with a description of every GOTO 
transferring to this label. This 
information is processed and dis- 
carded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 



pointer to the immediately eiribrac- 
ing INCLUDE is kept. 

During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 
number which have been used but not 
defined. This informiation is used 
only is Phase I and can therefore 
be overlaid. 



FLAGS: This set of bits provides additional 
information about the use of the 
item. They are used as follows: 



BIT 



MEANING 



EBCDIC NAKE: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
tnis field is not included. 



1 special entry bit 

2 DECLARE encountered (Phase 
BC) 

3 procedure body encountered 
(Phase EC) 

U parameter 

5 used to indicate a procedure 
called by Phase II scan. 

6 DECLARE encountered (Phase 
BG) 

7 unused 

8 ACTIVATE bit 

9 "in-use" bit 

10 "indirect reference" bit 

11 "undefined" bit for multiple 
declarations 

12 left-hand side (LHS Dit) 

This field occupies a half-word. 

COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero ini- 
tially, and subsequently contains 
the initial line numiber assigned to 
the included text. 

FOINTERS/PARAM-TYPES: For a procedure, the 
field contains an encoding of the 
type information for each formal 
paramieter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates charac- 
ter. If neither bit is set, this 
indicates that the entry declara- 
tion did not specify attributes for 
the parameters. 



For a label, word 4 
pointers to dicticn 
points to tne dictio 
the immediately errbr 
DO. The second hal 
a pointer to the di 
for the immediat 
INCLUDE. This provi 
checking the legal 
For an INCLUDE ident 



contains two 
ary itemis. One 
nary entry for 
acing iterative 
f-word contains 
ctionary entry 
ely embracing 
des a method of 
iry of GOTOs. 
ifier, only the 



Format of an Identifier Value Block (IVE) 



To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 3 2 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in tne 
preceding IVB. This copy is made to facil- 
itate backup. The last four bytes consist 
of a condition code of one byte followed jay 
a 3-byte chain pointer. A set of these 
sub-blocks, chained together, is used to 
I hold a value. The condition byte is 27 for 
all except the last sub-block in a value. 
In this last condition code byte the first 
bit is set to 1 to indicate "end-of-value. " 
The remaining bits are a count of the 
significant bytes in the sub-block. There 
is a maximum of 27 significant bytes in an 
IVB. 

The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on hew the chain is 
being used. 

These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed. 

An exauiple of a character string value- 
held in IVBs is shown. The character 
string, wliicn starts with AE and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AE...C is put into the first IVi;', 
while the last character, D, is put into 
another IVB. The condition code byte of 
I the first IVB is 27. The second condition 
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r 

|?AB 
L 



< 28 — > 1 



T T-n r 

C I I >\CD///// 

X ±-J L 



.^ ^ ^ 

I 100000011 ? I 
.X X J 



< 28 ^-> < 1 > <-3-> 



code byte is 10000001. The first "1" 
indicates end-of -value, while 0000001 is a 
count of the significant characters in the 
IVB. 

Besides holding characrer-string values, 
IVBs are used in rrany places by the 
conipile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 



BIT LEANING 

1 fIXED 

2 CHARACTER 

3 J3IT 

4 indirect reference (i.e., points 
to a dictionary entry) 

5 Character string value does not 
"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase BG 
scan. ) 



I nstru ction Codes _f or _theCorripile-tirre 
proc ess or 



Bits 6-8 are unused by the interpreter, 
They are reserved for Phase I-G scan. 



Compile-time statements are handled in 
two parts. During Phase BC, each statement 
is recognized and syntax checked. An 
encoded form of the statement is then 
placed into the current text block. During 
Phase BG these encoded statements are exe- 
cuted by an interpreter. 

All expressions are encoded in postfix 
Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 

Thus the expression (A+B)||C, for exam- 
ple, is turned into 

A B + C| I 

To be more explicit, it is turned into the 
instructions 

PUSH A; 

PUSH E 

ADD; 



All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 



1. STACK. These instruction 
of the one-tyte operator, 
their operands, if any, f 
II stack. These operate 
in general to the PL/I ar 
string operators. Depend 
er they are unary or bin 
the top one or two items 
Before these operands are 
are converted, if necess 
to the required type. Af 
are used they are popp 
stack. The result of the 
pushed onto the stack. 



consist only 
They taxe 
rem tlie Phase 
rs correspond 
ithmetic and 
ing on wheth- 
ary, they use 
on the stack, 
used, they 
^^Y » in place 
ter the items 
ed from, the 

operation is 



PUSH C; 



CONCAT 



The conversion, the popping, and the 
pushing are all implied for a stack 
ocerator . 



The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect ref- 
erence to a dictionary entry if the indi- 
rect bit is on. 

The bits of the status byte have the 
following meaning if set to one: 



2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes -- 
usually two. These Jjytes, which usu- 
ally refer to a dictionary entry, 
serve as the operand (s) of the 
instruction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable-leng-ch 
item. The count byte is omitted. 
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r T" 

I MNEMONIC I 



TYPE 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 
FIXED 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

FIXED 

FIXED 

FIXED 

FIXED 

STACK 
FIXED 

STACK 
FIXED 

FIXED 

FIXED 

FIXED 

FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



OPERAND DESCRIPTION 



FUNCTION 



+- 



■+- 



ADD 

SUB 

MUL 

DIV 

UNMIN 

UNPLS 

ASSIGN^ 

NOT 

AND 

OR 

CONCAT 

EQU2 

GT^ 

LT2 

INC 

ABORT 

TRA 

TRAC 

TRAF3 

INV5 

TRAI^ 

PUSH 

PUSHI 

UPDT 

ENTM 

RTNS 

EN3 

DSB 

DCL 

NOPD 



BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; B CONVERTED TO TYPE OF A 

UNARY; OPERAND, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT CHAR 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
Two-byte dictionary reference 
One-byte code 

Two-byte dictionary reference 
Two-byte dictionary reference 
Two-byte dictionary reference 

Two-byte dictionary reference and 
a one-byte argument count 

two two-byte dictionary references 

Two-byte dictionary reference 

Two-byte dictionary reference 

Three-byte line count 

no operand 

no operand 

Two-byte dictionary references 

Two-byte dictionary references 

Dictionary reference 

Dictionary reference 



A+B 

A-B 

A*B 

A/B 

-B 

+ B 

A=B (assignirent) 

iB 

ASB 

A|B 

A||E 

A=B (equality) 

A>B 

A<B 

INCLUDE A 

ABORT processing 

Transfer to label 

Transfer to label 

Transfer to label 

if top of stack false. 

Invokes the procedure 

Transfer out of INCLUDE 

Push A onto stack 

Push address of A 
onto stack 

Put line count into LINCNT 

Enter interpreter 

Return to Phase II scan 

ACTIVATE A 

DEACTIVATE A 

DECLARE A 

No-ops the DECLARE, once 
executed 
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r ■ T T T 1 

I MNEMONIC I TYPE | OPERAND DESCRIPTION | FUNCTION | 

^ 1 + 1 ^ 

CVT6 I FIXED I Dictionary reference 1 Convert to RETURNS 

I I I attribute 

I I I 

RETN'' I FIXED | Dictionary reference | Return from procedure A 
|. ± X J. .^ ^ 

^The ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is the 
single argument. 

p^Operand conversion for EQU» GT, and LT is as specified in IBM Sys tern/3 60 

Operating Systerr; PL/I Language Specifications , Form C 2 8 - 6 5 7 1 . 

^The TRAF uses and pops the top operand on the stack. it is treated as a bit 
string for conditional transfers. 

^This handles GOTOs out of included text. At this point CLNUP is perforired. The 
arguments are (a) the dictionary entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 

^The arguments for the invocation are contained on the stack. The dictionary] 
reference is to the procedure entry. 

®This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 

■'This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 

L . J 
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2_: COM MUNICAT IO NS REGION^^ USE the coippile-time processor. The region 

from ZCOMM to ZCOMM+463 is also used by the 

compiler; however, during the compile-time 

The region from offset to offset 304 processor phase, this region is used exclu- 

(ZCOMM) is used as a general communications sively by the compile-time processing. The 

region throughout the comipiler, including details of this usage are shown below. 
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Name 
STATUS 



Offset 



ZCOMM 



Length 
1 



STA2 



ZCOMM+1 



SUBSTRDR 


ZCOMM+2 


2 


TOKPTR 


ZCOMM+4 


4 


INCPTR 


ZCOMM+8 


4 


INBUF 


ZCOMM+1 2 


4 


OUTBUF 


ZCOMM+1 6 


4 


PDSPTR 


ZCOMM+2 


4 


ENDBUF 


ZCOMM+2 4 


4 


WHERE 


ZCOMM+2 8 


4 


IVBPTR 


ZCOMM+32 


4 


LINCNT 


ZCOMM+36 


4 


TEMPTR 


ZCOMM+40 


2 


DCENTY 


ZC0MM+a2 


2 


CURING 


ZCOMM+44 


2 


CURDO 


ZCOMM+46 


2 


PROCNO 


ZCOMM+4 8 


1 


NXTPC 


ZCOMM+4 9 


1 


DPHCNT 


ZCOMM+50 


2 


CODE 


ZCOMM+52 


1 


LENGTH 


ZCOMM+54 


2 



Contents 

Byte 1: Bit not used 

1 PROCSW — processing macro procedure 

Not e; 2 FINDBIT — SRHDIC has found dictionary item 

Condition 3 ERSW — diagnostic produced in Phase II 

Settings 4 EFSW — end of file encountered (input) 

"1" = set 5 LEVEIT — processing IVE 

"0" = off 6 INCSVv — processing included text 

7 PH2SW — in Phase II 

Byte 2: Bit OLDINC — processing already listed INCLUDE 

1 SKPSW — indicates entry to END from PRCSCN 

2 NOPERCENTSW — look ahead for % completed 

3 SYSOPN — SYSLIB DCB is open 

4 MACRO — indicates current macro action 

5 PR2SW — indicates in macro procedure 

7 ARG — indicates that Phase II is looking for 
arguments of activated procedure 

Holds dictionary reference of level SUBSTR entry 

Address of character being scanned, text reference or 
absolute, right justified 

Save area for TOKPTR 

Absolute address of input buffer, right justified 

Absolute address of output buffer, right justified 

Absolute address to top of pushdown stack, right justified 

Absolute address to last significant character in input 
buffer, right justified 

Address of next available ioyte in output buffer, text 
reference or absolute, right justified 

Text reference to next free IVB, right justified 

Holds current line number, right justified 

Dictionary reference to top of "in-use" temporary stack 

Dictionary reference for chaining dictionary items 

Dictionary reference to INCLUDE entry being processed 

Dictionary reference to DO entry being processed 

Current procedure number, right justified 

Next available procedure numiber, right justified 

Current depth count 

Code for token type 

Number of signifiant characters in TOKBUF, right justified 
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MXDPTH 


ZCOMM+56 


2 


INDEX 


ZCOMM+58 


2 


ATTR 


ZCOMM+60 


2 


GRSAVE 


ZCOMM+64 


4 


NEWIVB 


ZCOMM+6 8 


4 


VALUE 


ZCOMM+72 


4 


PREINB 


ZCOMM+76 


4 


BUFSRT 


ZCOMM+SO 


4 


INIVB 


ZCOMM+aU 


1 


OUTIVB 


ZCOMFi+85 


1 


TXTBLK 


ZCOMM+86 


1 


INVBAB 


ZCOMM+8 8 


4 


OUTIVBAB 


ZCOMM+92 


4 


TXTBLKAB 


ZCOMM+96 


4 


MTABC 


ZCOMM+lOO 


4 


TXTEST 


zcoiyiiyi+104 


4 


BUFl 


ZCOMM+IOS 


4 


BUF2 


ZCOMiyi+112 


4 


LIBDCB 


ZCOMM+116 


4 


USRDCB 


ZCOMiyi+120 


4 


MAXLCT 


ZC0MM+12U 


4 


PRCWHR 


ZCOMM+128 


4 


DCENTYAB 


ZCOMM+132 


4 


SCHK 


ZCOMM+136 


4 


PROCCL 


ZCOMiyj+140 


2 


OUTERCL 


ZCOMM+142 


2 


PROCCLDR 


ZCOMM+14 4 


2 


OUTRCLDR 


ZC0MM+1U6 


2 


DECIDR 


ZCOMM+mS 


4 


CURPRC 


ZCOMM+152 


4 


TOKBUF 


ZC0MM+16U 


32 


HASTB 


ZCOMM+3 00 


128 


CONSCH 


ZCOMM+4 28 


2 


SPECCH 


ZCOMM+U30 


2 



Integer value of depth of replacement, right justified 

Hash table index for dictionary routines 

"Type" byte for dictionary routines 

Save area for GRG 

Pointer to IVB chain to be freed or obtained 

Type and value/value pointer for dictionary entries 

Pointer to header information for INBUF 

Pointer to left margin in INBUF 

Current busy block number 

Current busy block number 

Current busy block number 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Address of translate table for TOKSCN and FINDPC 

Length of text block adjusted for chain address 

Pointer to first INCLUDE buffer 

Pointer to second INCLUDE buffer 

Pointer to DCB for SYSLIB data set 

Pointer to DCB for user data sets 

Maximum line count used so far 

Pointer to next byte in which to put procedure text 

Absolute address of dictionary entry 

Pointer to level 1 SUBSTR entry 

Dictionary reference of procedure check list 

Dictionary reference of outer check list 

Dictionary reference for PRCCCL cell 

Dictionary reference for OUTERCL cell 

Dictionary reference of dictionary entry for DECIMAL 1 

Pointer to current procedure entry on PDS 

32-byte buffer, characters inserted left justified 

64 two-byte dictionary references to hash chains for named 
items 

Dictionary reference to constant chain 

Dictionary reference to special chain — debugging only 
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COMPILE-TIME PROCESSOR, OPERATING 



SYSTEM, AND COMPILER CONTROL INTERFACES 



Although the compile-time processor 
makes considerable use of the Operating 
System facilities, it usually does so indi- 
rectly through the compiler control. \ How- 
ever, those Operating System services 
required to support the INCLUDE facility 
are invoked directly. Since included text 
is required to be a member of a partitioned 
delta set, it is those data managemient 
facilities which support BPAM which are 
used. Specifically the macros OPEN, FIND, 
CLOSE, READ and CHECK are used by various 
pcirts of the INCLUDE handler .v Details of 
these macros can be found in IBM Syst em/360 
Operating System; Control__Prpgrami Services , 
Form C28-6541. 



ZTV 

ZMYNAM 

MCSIZE 

CCCODE 

TXTSZ 

ZSOR -- column number in which to begin 
scan of input text 

ZMAG — column number in which to end 
scan of input text 

ZTRANl 

The following compiler control routines 
are referenced: 



The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied. All subsequent communication between 
the compile-time phases and the compiler 
control is done by way of cells in the 
communications region. This includes the 
parameters passed to the F service rou- 
tines, the decoded options which are test- 
ed, and the cells set to indicate tlyie 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PARI 

PAR 2 



ZUPL 


RELESE 


ZURD 


RLSCTL 


ZUGC 


ZTXTRF 


ZUTXTC 


ZTXTAE 


ZURC 


ZCHAIN 


ZABORT 


ZALTER 


ZLOADW 


ZDABRF 


ZDICRF 


ZEND 


ZUERR 


ZUEW 


ZDRFAB 





Index 
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INDEX 



Abbreviations in text during 

compilation 396-404 
ABS 51 

Absolute addresses, conversion from 15 
ADDR built-in functions 50 
Adjustable bound expressions 60 
Adjustable length constants 34 
Aggregate, DEFINED 61 
AGGREGATE LENGTH TA3LE 61 

phase 61 
Aggregates Logical "Phase 19,45-46 
ALLOCATE chain 2 9 

pointer-variable in the SET option 53 

statements 39,44,52,53,60 

triples 48 
ALLOCATE Statements 36 

format of 380 

with based variables as arguments 53 
AND 4 9 

functions 50 

operations 50 
Annotated Dictionary Dump 25,26 
Annotated Text Dump 25 
AREA 34 

references 45 

variables 38 
AREA arrays and structures storage 

mapping 45,46 
AREA condition dictionary entry 38 
Arguments 52,53 

based variables 53 

expressions 41 

passed to library routines 45 
Arithmetic triples 49 
Arithmetic registers 47 
Array and structure arguments to built-in 

function 44 
Array bounds 

expressions specified for 32 

format of the second file statement 391 

identifiers with identical array 
bounds 3 4 
Array expressions 40,43 

in I/O lists 43 
Array mapping 19 

Array string dope vector, size of 60 
Arrays 

adjustable 45 

arguments to built-in functions 44 

assignments 40,43 

base 43 

defined 43 

EVENT 53 

having adjustable bounds 35 

INITIAL 58 

initial value string 48 

mapping of 45 

non- structured arrays in AUTOMATIC 360 

non-structured arrays in STATIC 
INTERNAL 360 

partially subscripted 42 

STATIC INTERNAL 58 



unsubscripted 43 
Arrays of strings with the VARYING 
attribute 

secondary dope vector 59 
Arrays storage mapping 45,46 
ASSIGN statement 

format of 377 
Assignment statements 

nested 43 
Assignments 40,43 

array 43 

scalar 43 

to chameleon dummy arguments 44 
Assignm.ents coded in-line 55,56 
ATR 

attribute lister 39 

option 61 
ATR option Phase FX 39 
Attribute collection 34 
Attribute list 34 
Attributes 

BIT 34 

CHARACTER 34 

declarations 19 

default 35 

DEFINED 34,58 

DIMENSIONS 34 

factored 34 

generic 34 

INITIAL 36 

INITIAL CALL 34 

invalid and inconsistent 34 

LABEL 34 

LIKE 36 

PICTURE 34 

POSITION 34 

PRECISION 34 

SETS 3 4 

testing for consistent attributes 32 

USES 3 4 
AUTOMATIC 

chains 45,57 

non-structured arrays in 360 

non-structured scalar strings in 361 
AUTOMATIC chain delimiter, dictionary 

entry 366 entry 366 
AUTOMATIC structures 360 



Base elem.ents of structures 

bounds 32 
BASED 34 

Second file Statemients for 392 

variables 38 
BASED variable 36,39 

arguments 52,53 
Batch com.pilation 26,64 
Batch delindter card 26 
BCD 

entries 364 

identifiers 19 
BEGIN 
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chains 28 

entries type 1 32 

statements 37,39,42 

triples 48 
BEGIN statement 

format of 376 

prologue 60 
BIT 34 

attributes 34 

string 49 
BLDL 

second half list 26 
BLDL macro 22 
Block levels 28 
Block Control 21 
Block header chains 33 
Block nesting levels and counts 3 
Block size 

dictionary 15,22,405 

text 15,22,405 
BOOL functions 

AND 50 

EXCLUSIVE OR 50 

In-line code 50 

OR 50 
Bounds 

for base elements of structures 32 

of temporary arrays 32 
Build list 22 
Built-in functions or programmer supplied 

procedures 51 
Built-in function table 44 
Built-in functions 

ADD 49,50 

ADDR 50 

array and structure argum.ents 44 

compiler 32,55 

COMPLETION 50 

Dictionary Entries 363 

DIVIDE 49 

EMPTY 41 

EXCLUSIVE OR 50 

generated in-line 45,51 

INDEX 45 

MULTIPLY 4 9 

NULL 41 

NULLO 41 

STATUS 50 

SUBSTR 45 

UNSPEC 4 5,50 
BUY 40,51,5 5,60 
BUY ASSIGN 

statements 55 
BY NAME option 4 
Byte 9 

Code Byte 365 
Bytes for 351 

Entry Dictionary Entries ENTRY 351 



CALL 

chain 29,35 

EVENT 51 

PRIORITY 51 

TASK 51 

to a Library epilogue routine 52 
CALL statement 37 

format 378 



procedure invocations 44,51 
Calls 

with arguments 41 
Cards 63 

loader text 63 

relocation directory 63 
CAT 4 9 

Cataloged procedures 15 
CCCODE 26 

format of 343 
Chains 

ALLOCATE 2 9 

AUTOMATIC 4 5,57 

BEGIN 28 

block header 33 

CALL 29,35 

circular PROCEDURE-ENTRY chain 3 4 

COBOL 4 5 

constants 57 

CONTROLLED 45,57 

DECLARE 29 

LIKE 3 6 

of DECLARE statements 34 

PROCEDURE 28 

PROCEDURE-ENTRY 33 

PROCEDUKE-ENTRY-BEGIN 29 

STATIC 4 5,57 
Chains constructed by Read-In 29 
CHARACTER 3 4 

attributes 34 

string 49 
Character translation 21 
Character Translation Tables 21 
CHECK 

conditions 40,42 
CHECK lists 38,42 

Entry 365 

List Processing 38 
CLOSE 

calling sequences 54 

Library modules 54 
CLOSE statements 

format of 380 
COBOL chain 4 5 
COBOL option 41 

COBOL structures storage mapping 45-46 
Code Byte 

Byte 9 365 

Dictionary entry 345,351 

ENTRY 351 

First Code Byte - Other 1 355 

for GOTO 37 

Fourth Code Byte - Other 4 356 

GOOB 37 

Optimization Byte 352 

Options 34,351 

Second 364 

Second Code Byte - Other 2 355 

Third Code Byte - Other 3 356 
Comments in the listing 64 
Communications region 17,21,407 
Communications Region - tables 408,413 
Communications region, compile-time 

processor 434 
COMPARE operator 49 
Comparisons 50 

triples 49,50 

string 49 



Index 
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Compilation 

batch 26 

bypassed 28 

termination of 4 5,65 
Compile-time expressions 431 
Compile-time macro operations 

table 432-433 
Compile-time Processor 

dictionary entries 429 

instruction codes 431 

internal format of text 429 
Compile-time Processor error messages 

text 28 
Compile-time Processor Logical Phase 429 
Compile-time Processor Phase 19,27 
Compile Time Processor Line numbering 27 
Compile-time Processor, coirmunications 

region 434 
Compile-time statements 431 

syntax errors 28 
Compiler 

initialization 15 

input 15 

labels 361 

output 15 
Compiler completion codes 23 
Compiler Control module lEMAA 21 
Compiler control modules 24,27 
Compiler control routines 

entry to 4 07 

initialization 15 
Compiler Function - formats 390-393 
Compiler functions 32,55 
Compiler labels 

numbered for use 6 3 
Compiler options 

LINECNT 414 

SIZE 414 

SORMGIN 414 

table 25 
Compiler Organization 17 

Figure 3 18 
Compiler, overall flowcharts 67-68 
Compiler pseudo-variables and functions 32 
Compiler pseudo-variables 55 
Compiler subroutines 

text for 63 
COMPLETION 50 
Completion codes 23 
Concatenation 50 

of varying strings 50 

triples 45 
CONDITION conditions 38 
Conditions 

CHECK 4 

ON 40,365 
Constant subscript evaluation 

Optimization of 52 
Constants 30 

adjustable length 34 

chain 38,57 

Dictionary Entries from 362 

FILE 362 

file constants with the ENVIRONMENT 
option 41 

fixed length 34 

label 361 

Sterling 38 



Constants, phase CS 56 
Constructing and accessing the 

Dictionary 31 
Control block 

DECLARE 41 
Control code word 

format of 343 
CONTROL COLUMN 414 
Control Flow 

Figure 3 18 
Control phase 17 
Control program 

of the Operating System 15 
CONTROLLED 

Array 360 

chains 45 

Structures 360 
CONTROLLED chain 57,63 
CONTROLLED variable 63 
Conversion from absolute addresses 15 
Conversion of symbolic references 15 
Conversions, Phases OG,OM,OP 56 
Correspondence defining 39 
CSECT 

Program Control Section 63 

STATIC internal 63 



Data 

Dictionary Entries for 352 

dynamically defined 39 

options 41 
Data Byte 357 
Data interchange 45 
Data Items 

Dictionary Entries for 352 
Data lists 41 
Data sets 24 

SYSIN 21 

SYSPRINT 21 
Data/format lists in I/O statements 55 
DCLCE parameter 

from the FILE option 53 
Declarations 

attribute 19 
DECLARE 

chain 29 

control block 41 

format of 380 

statements 32,37 
DED 

Dictionary Entry 366 
DED-Data element descriptor 58 
DED 2 

Entries 367 
DEFINED 34,58 

chain check 45 

dynamically 58 

items whicn are to be addressed 
directly 59 

Second file Statements for 393 
DEFINED aggregate 61 
DEFINED data 35 

Dictionary entries for 39 
DEFINED STORAGE MAPPING 45,46 
Defining 

correspondence 39 

dynamic 39 
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Mixed scalar-array- structure- string 
class overlay 46 

overlay 39 

Scalar overlay defining 46 

static 39 

undimensioned structure overlay 
defining 46 
DELAY statement 52 

format of 379 
DELETE 

statements 53 
Descriptors 

Temporary 47 
Device type options 15 
Diagnostic Message Control 21,22 
Diagnostic messages 20,29,64,422-428 
Dictionary 17 

block size 15,405 

Constructing and Accessing 31 

diagnostic message chain in the 
dictionary area 29 

dump of 25 

extended 2 6 

first dictionary block 17 

hash tcible 31 

normal-sized 26 
Dictionary and text block size 22 
Dictionary area 

dianostic message chain 29 
Dictionary blocks 

available 405 

first dictionary block 17 
Dictionary entries 39 

AUTOMATIC Chain Delimiter 366 

BCD 36 4 

BEGIN 33 

Built-in Functions 363 

CHECK list 365 

Code Byte 351 

compile-time processor 429 

Data Items 352 

DED 366 

DED2 367 

DEFINED data 39 

Dope Vector Descriptor 368 

Dope Vector Skeletons 366 

ENTRY 33 

Entry Points 32,347 

entries type 1 32 

entry type 4 32 

FED 367 

Internal Entry Point 33 

FILE 362 

list processing AREA condition 3 8 

Format Element Descriptor 367 

from Constants 36 2 

GENERIC entry labels 42 

INITIAL attriJDUtes 34 

Initial Values 369 

item described by a picture 39 

Label 352 

Label BCD 367 

ON conditions 38,59 

OPEN control block 41 

option 41 

parameter descriptions 364 

PICTURE 34,365 

PICTURE 365 



PROCEDURE 33 

RECORD dope vector 367 

skeleton dope vector 58 

STATIC DSA 57, 368 

Statements 34,35,37 

Structure Items 352 

Symbol Table 366 
Dictionary entries for Label Variables 352 
Dictionary entries for Major and Minor 
Structures 353 

temporary variable 59 
Dictionary entries during the compilation 

formats of 345 

Workspace Requirement 366 
Dictionary Phase 19,31-40 
Dictionary reference 

of a POINTER in a PEXP pointer 
expression 39 
Dictionary references 

dummy 38 
Dimension Table 368 
Dimension table entries 34 
Dimension table 38 
DISPLAY statement 52 

format of 379 
DO groups 

nesting 48 
DO loop processing phases 44 
DO loops 48 
DO statement 37 

format of 377 
DO-nest levels 28 
Dope Vector Descriptor Entry 368 
Dope Vector Entries for Temporaries 367 
Dope Vector Skeletons, Dictionary 

Entries 366 
Double stack translation 43 
DSA optimization 60,420-421 
Dummy arguments 

assignments to chameleon dummy 
arguments 44 
Dummy dictionary references 

statements containing 38 
Dump 25,26 

Annotated Dictionary 26 

Annotated Text 25 

dictionary codes used 25 

easy-to-read text print 26 

inter-phase 25 

of the dictionary 25 

SYSPRINT 25 
DUMP option 25 

Dynamic initialization phases 44 
Dynamic Prologue Subroutine code 420-421 
Dynamically defined data 39 



EDIT option 41 
Edit-directed I/O 54 
EMPTY built-in function 41 
END card 64 
END statement 37,42 

format of 376 
Entry labels 

GENERIC 42 
Entry name 

generic entry name arguments to 
procedure invocations 51 



Index 
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Entry Point 

Dictionary Entries for an Internal Entry 
Point 33 
Entry Points 32,347 

Dictionary Entries 347 

External 32 

formal parameters 32 

parameter descriptions 32 

to Library routines IHESADA and 
IHESADE 63 
Entry Requiring Additional Comparisons 

Format of 342 
ENTRY statement 

entry type 1 348 

format of 376 
Entry type 1 348 

ENTRY statement 348 
Entry type 1 chain 63 
Entry type 1 for 

BEGIN 347 

ENTRY 347 

PROCEDURE 347 
Entry Type 2 349 
Entry Type 3 349 
Entry Type 4 3 50 

dictionary entries 32 
Entry Type 5 351 
ENVIRONMENT option 41 
SOB operator 4 4 
Error editor 65 
Error Editor Phase 20,64 
Error messages 

text of 65 
Error messages 422-428 
Errors and Diagnostic Messages 29 
ESD and RLD cards 20 
ESD cards 62,63 
EVENT 

array 53 

data 363 

option 51,54 

present in a CALL statement 42 

variables 38,51 
EVENT array dope vector 53 
EXCLUSIVE second level marker 41 
EXCLUSIVE OR functions 50 
EXIT 

format of 379 

statements 52 
Expression 

in a RETURN expression 32 
Expressions 

arguments 41 

array expressions in I/O lists 40 

evaluated at prologue time 38 

for array bounds 32 

structure 4 2 
Expressions - compile-time 431 
Expressions specified for 

string lengths 32 
Extended dictionary option 25,26 
Extent variable 

named in the REFER option 53 
External entries for Built-in functions 63 
External entries for EXTERNAL entry 

names 63 
External entries for files 63 
External entries for Library functions 63 



External entries for programmer ON 

conditions 63 
External entries for STATIC external 

variables 63 
External entry points 

dictionary entries 32 
External standard calling sequence 51 



Factored Attributes 34 
FED 

Dictionary Entry 367 
FILE 

Constants 362 

Dictionary entry for 362 

Environment Entries 362 

Parameters and Temporaries 362 
File constants 

STATIC chain 41 
FILE option 

DCLCB parameter 53 
Files 35 
Final Assembly Phase 20,62-64 

optimisation 62 
First aalf Byte format 345 
First Level Directory 

Format of 342 
Fixed length constants 34 
FLAG 

Variable Length Item 388 
Formal parameter list 33 
Formal parameter type 1 entries 33 
Formal parameters 38 

entry points 32 
Format Element Descriptor 

Dictionary Entry 365 
Form.at of 

ALLOCATE statements 38 

ASSIGN statement 377 

BEGIN statement 376 

CALL statement 378 

CCCCDE 3 43 

CLOSE statements 380 

control code word 343 

DECLARE 38 

DELAY statement 379 

DELETE statement 380 

DISPLAY Statement 379 

DO Statement 377 

END statement 376 

Entry Requiring Additional 
Comparisons 342 

ENTRY statement 37 6 

EXIT 379 

First Level Directory 342 

FORMAT statement 380 

GENERIC entry point 3 51 

GET 38 

GO TO statement 378 

Identifier Value Block 430 

IF statement 377 

INITIAL label DECLARE statements 37' 

IVB 430 

Null 379 

ON statement 377 

OPEN and CLOSE statements 38 

phase directory entry 343 

PROCEDURE statement 37 5 



442 



pseudo-code units 38 6 

PUT 380 

READ 380 

RETURN statement 379 

REVERT statement 378 

REWRITE 380 

Second File Dictionary Entry 368 

Second Level Directory 342 

SETS List 350 

SIGNAL and REVERT statements 378 

STOP 379 

Third Level Tables 342 

UNLOCK 380 

Variable Information 357 

WAIT statement 37 8 

WRITE 38 
Format of First Half Byte 3U5 
Format of Second Half Byte 3U5-347 
Format of text 

compile-time processor 429 
Format of the second file statement array 

bounds 391 
Format of triples 383-385 
FORMAT statement 

format of 380 
Formats of 

dictionary entries during the 
compilation 345 
FREE 

Statements 44,52,53,60,61 

with based variables as arguments 53 
FREESA routine 

Library call 52 
Function 

called with the TASK option 41 

calls with arguments 41 
Function reference 

invocations by 51 

source text 41 
Functions 49 (See also Built-in functions) 



General purpose register 

in pseudo-code 47 
GENERIC 

entry labels 4 2 

entry name arguments to procedure 
invocations 51 

procedure 45 
GENERIC entry point format 351 
GENERIC identifiers 35 
Generic library routine 

invoked by a function 45 
GET 

format of 380 

Library modules 54 

statements 43 
GET and PUT statements 

Library call 54 
GO TO statement 

format of 378 
GOLN triples 52 
GOOB triple 52 
GOTO 

changed to GOOB 37 

triples 52 



Hash table 

dictionary 31 
Housekeeping Phase FT 38 



I/O 



Library routine entries for EDIT- 
directed STREAM-I/0 54 
I/O activity 

within a PROCEDURE or BEGIM block 41 
I/O lists 

array expressions in 4 3 
I/O statements 4 

Data/format lists in 55 

RECORD 41 
Identification Table 415 
Identifier Value Block 

Format of 430 
Identifiers 30,37 

BCD 19 

GENERIC 35 

implicitly defined 31 

with identical array bounds 34 

with INITIAL CALL 35 

with the INITIAL attribute 35 
Identifiers appearing as multiple 

declarations 35 
IDV initial dope vector statement 48 
lEMAA 

module 21 
lEMAF Control Section 

Figure 414 
IF statement 

format of 377 

result of the comparison 52 
IF triples second operand 52 
IGNORE option 54 
IHELSP parameter list 5 3 
IHEQERR 6 3 
IHEGTIC 6 3 
IHESA 51 
IHESADA 6 3 
IHESADE 6 3 
IHETSA 51 

Implicitly defined identifiers 31 
In-line 

BOOL functions 50 

built-in functions 45 

functions which are to be coded 
in-line 51 

pseudo-code 49,50 

types of ASSIGNMENT triples 55 
INCLUDE matrix 54 
INDEX 50 

functions 45 
INITIAL 

arrays 58 

Identifiers with the INITIAL 
attribute 35 

variables 48 
INITIAL attribute 36 

INITIAL attributes dictionary entries 34 
INITIAL CALL 

Identifiers 35 
INITIAL CALL attributes 34 
INITIAL label DECLARE statements 

format of 379 
Initial label statements 



Index 
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label array 39 
Initial Labels 30 
INITIAL Value List 369 
INITIAL value statement forirat 39 2 
Initial value statements 

associated with the ALLOCATE 
statement 60 
Initial value string 

arrays 4 8 
Initial Values 

Dictionary Entries 369 
Initialization 21 
Input to the compiler 15 
Input/Output Control 21,22 
Input/output statements 

syntax of 31 
Input/Output Usage Table 24 
Instruction Codes 

Compile-time processor 431 
Instructions 388,390 

RR 390 

RS 388,390 

RZ 387,390 

SI 388,390 

SS 388,390 
Inter-phase dumping 

Module AD 25 
Intermediate result stack 49 
Intermediate results 48 
Intermediate string results 

stack of 49 
Internal Entry Point 

Dictionary Entries for 33 
Internal Library Functions 364 
Internal standard calling sequence 51 
Invocation count 63 
IRREDUCIBLE 36 
iSUB references 40 
iSUBs 

items defined using iSUBs 43 
IVB 

Format of 430 



Job Termination 22 



KEYTO option 54 
KEYWD routine 341 
Keyword tables 341 



Label 

Constants 361 

Dictionary Entries for 352 
Label array 38 

initial label statements 39 
LABEL attribute 34 
Label BCD 

Entries 367 
Label declaration 29 
Label statements 

initial 39 
Label table entries 

multiple 29 
Label table entry 29 
Label Variables 

Obtained from DECLARE Statement 352 
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REVERT 

triples 52 
REVERT statements 

format 378 
REWRITE 

format of 380 

statements 53 
RLD cards 20,62 
RR Instructions 388,390 
RS Instructions 388,390 
RX Instructions 387,390 



Scalar assignments 43 
Scalar overlay defining 46 
Scalar-array- structure-string overlay 

defining 46 
Scalars in 

AUTOMATIC 361 

CONTROLLED 361 

EXTERNAL 361 

parameter 361 

STATIC 3 61 

STATIC INTERNAL 3 61 
Scale constants 34 
SCAN routine 50 
Scratch Storage Control 21,22 
Second Code Byte 364 
Second File Dictionary Entry 

format of 368 
Second file entries 38 
Second file statement 59,390 

PEXP 36 
Second File Statements for 

BASED 39 2 

DEFINED 39 3 

OFFSET 392 
Second Half Byte format 345-347 
Second half list 

BLDL 26 
Second half phase directory 26 
Second Level Directory 

format of 342 
Second Offset Slot 

decision to include 359 
Secondary dope vector 



414 
62 

59,60 
58 



414 



arrays of strings with the VARYING 
attribute 59 
SELL statement 40,42,51,55 
SET option 

pointer-variable in 53 
SETS 

attributes 34 

entries with the SETS attribute 37 
SETS list 41 
SETS list format 350 
Severity level of messages 28 
SI Instructions 388,390 
SIGNAL 

arithmetic condition triples 52 
SIGNAL and REVERT Statements 

format 378 
SIGNAL CHECK 

Statement 42 
SIZE 

compiler options 

of each procedure 
SIZE option 22,405 
Skeleton dope vector 

dictionary entry 
Skeletons 

text 4 5 
SORMGIN 

compiler options 
SOURCE option 28,30 
Source program 

syntax checking 19 
Source program, options 15 
Source text 17,49 

function references 41 

grairmatical forms 40 

new symbols 40 

prefix form 44 
SS Instructions 388,390 
Stack 

intermediate result 49 

of intermediate string results 49 

of pseudo-variable descriptions 50 
Standard calling sequence 

external 51 

internal 51 
Statement and Entry Labels 29 
Statement label 34 

pseudo-code item 60 
Statement label code 29 
Statement Numbering 29 
Statements 

ALLOCATE 31,36,39,44,52,53,60 

BEGIN 31,37,39,42 

BUY 40,51,55,60 

BUY ASSIGN 55 

CALL 31,37 

chain of DECLARE statements 34 

Compile-time statements 431 

containing dummy dictionary 
references 38 

DELAY 52 

DELETE 53 

DISPLAY 52 

DO 37 

END 37,42 

ENTRY 31,34,35,37 

EXIT 5 2 

FREE 44,52,53,60 



448 



GET 43 

IDV initial dope vector 4 8 

I/O 40 

LOCATE 41,44,53 

nested 42 

nested assignment 43 

ON 38., 364 

PROCEDURE 31,33,37,39,42 

PROCEDURE BEGIN 33 
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